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PREFACE 


(a) Objective 

This document reports on an effort to design, develop, fabricate 
and test an advanced two dimensional data processing system called the 
Man-Computer Interactive Data Access System (McIDAS) . 

(b) Scope of Report 

This report is a technical description of the work completed. 

It does not contain a narrative history of the work since that informa- 
tion is amply covered in monthly progress reports . The three sections 
of the report cover hardware, system software, and applications software. 
The hardware section is abbreviated and will be supplemented by complete 
circuit schematics, wiring lists, parts lists, component specifications, 
and test data to be published at a later date, 

(c) Conclusions 

The McIDAS equipment development required under contract 
NAS 5-21794 has been successfully completed. 


Preceding page blank 
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INTRODUCTION 


At the close of the contract period all McIDAS subsystems were com- 
pleted and, with some exceptions, integrated. Complete integration with 
software was not completed but was proceeding smoothly. Documentation 
of the hardware is not complete and will require about three months 
before all drafting work will be completed. 

Rather than to wait for completion of documentation of the hardware, 
it was decided to publish this report and to follow with a second section 
at a later date. In this report is a brief overall description of the 
hardware with a functional block diagram and complete description of both 
system and application software. 




Me IDAS HARDWARE 


Functional System Description 

The McIDAS system consists of tfiree basic sections: an access and 

data archive section, a control section, and a display section (See Fig. 1) 
The archive section consists of a video slant track recorder Onodifled model 
IVC~900) and associated control electronics which will record the SMS data 
to full resolution in digital format. The archive system can run 24 hours 
a day (except for maintenance) and can record all of the SMS data. 

The control system for McIDAS is based on a Datacraft' 6024/5 computer. 
The Datacraft is a 24*bit machine with 32,000 word storage (expandable to 
128,000 words) and a basic cycle time of one microsecond. A 50 megabit 
digital disk, 9 track digital recorder, card reader and line printer provide 
conventional I/O capability. SMS Data is inputted into the Datacraft from a 
modified IVC-900 video slant track recorder identical to the unit used in 
the Archive System. This mass storage unit (see Fig. 1) can access the data 
on the tapes generated by the Archive System. The mass storage unit provides- 

one full day*s SMS data (visible and IR to 1/2 x 1/2 mile resolution) on line 
to the computer. 

The display system accepts digital data from the Datacraft computer, 
converts it into standard TV type format, and presents it to a TV monitor for 
the operator to view. The system has the capability of "enhancing" the data 
as it goes to the monitor to add pseudo-color to increase the perceptual 
range of the operator. The system also can enhance by non-linear amplifica- 
tion to emphasize particular levels or areas of interest in the data. 

This enhancement capability, as well as a "blending" capability which 
allows a number of images,. each with its own enhancement, to be superimposed 
on the TV screen in various ways, is precisely set up and controlled by the 
computer working from software programs which respond to the needs of the 



operator. The operator communicates with, the computer via a human engineered 
set of controls and a language which closely resembles his oym scientific 
background so that a minimuin amount of understanding of the McIDAS implemen- 
tation details is necessary. The operator then can expend his time and energy 
in analyzing his data instead of learning how to operate a complicated piece 
of electronic gear. 

The basic operational approach for the McIDAS system is as follows: 

The operator sits before a color TV monitor. He has a keyboard and a combina- 
tion of joy sticks, knobs, and switches which allow him to interact effectively 
with the computer. With these controls, he tells the computer the type of 
data, at what scale and in what format he wants to see, and the type of 
enhancement and blending he wants to use. The computer translates his requests 
into specific commands and sequences of commands which are transmitted to the 
display system, which in turn, presents to the color monitor the data re- 
quested in the format specified. The operator then examines the data, per- 
forms judgement, selection, or decision functions, and directs the computer 
to perform measurement or analyses functions on the specific data sample 
selected. The computer recovers the required data sample from the original 
data in the archive, processes the data to the precondition selected by the 
operator, performs the measurement or analysis function and presents the 
results to the operator in the format he selects. Usually the results will 
be in the form of another display on the color monitor. 

As an example, assume the objective is to measure cloud displacement 
from satellite pictures. The operator would key into the computer the longi- 
tude and latitude of the area of interest, the time interval over which the 
measurement is to be made, and the size of the area to be displayed. The 
computer would then choose the appropriate satellite data, do a preliminary 



navigation and display tt on the TV moni^tor as a s.hort repeati.ng "movie 
loop" showing the dynamics of the cloud motions. The opaicator would then 
key in various color and level enhancements until he could easily see the 
types of clouds he was interested in~r>low level cumulous , for instance. 

The operator would then request the computer to superimpose a cursor 
over the data of a particular shape, size and color. He would then position 
the cursor by means of a two dimensional joystick, to indicate to the computor 
each, specific cloud he wanted analysed for displacement. 

The computer would then go back to the original digital data, do a 
correlation on the clouds in all the pictures, calculate the displacements and 
do a precise navigation on the results. These results would be printed out 
as vectors on magnetic tape or line printer and also displayed on the TV 
monitor as a colored vector with proper location and orientation relative to 
the "loop" being displayed. The operator could then see If the results are 
reasonable, and if they are, take his data and leave. 

Theory of Operation 

The McIDAS system is made up of both purchased items and hardware which 
has been designed specifically for McIDAS. Purchased items are well docu- 
mented by the manufacturer's publications which are included in Appendices to 
this report. The Datacraft computer, and its standard peripherals, are well 
documented and will not be detailed here. The display system, however, was 
designed and built almost completely at the University of Wisconsin's Space 
Science and Engineering Center. 

The display system accepts the digital data from the computer and converts 
it tP the standard TV format. The data are then stored on an Ampex analog 
video disk, an "instant replay" unit used by broadcast TV. The analog video 
disk records a TV frame on one circular track of the magnetic disk, then 
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replays this video frame back as desired at 3Q frames per second. The Jfcldas * 
analog video disk has four channels k each channel has roughly 250 recording 

P 

tracks, and each track can record one TV frame. For purposes of loading the 
analog video disk, the SMS data are segmented into 525 lines and 70,0, pixels 
per line. At each one of the locations of these pixels in the TV frame, one 
six-bit word is loaded from the computer in analog form. Consequently, each 
TV frame is broken up into a matrix of 525 by 700 or roughly 400,000 six-bit 
words:. 

For standard TV, the rate at which these pixels occur is approximately 
13 megahertz. The Datacraft computer can output only 300,000 24-bit words 
per second. Consequently, the Video Disk cannot be loaded directly. To 
solve this interface problem, the Fast Storage Unit has been designed. It 
accepts and stores 700 six-bit words from the computer at the computer^ 
maximum rate. Then, when the video disk head is physically over the exact 
location on the disk for the particular TV line this data is to comprise, 
it reads out the 700 six-bit words at 13 MHz, converts them to an analog 
video signal, and records it as a TV line. The fast storage unit then tells 
the computer it is ready and the computer loads another 700 words for the 
next TV line. In this way the entire TV frame is built up line by line. Once 
the TV frame is loaded, which takes about 20 to 30 seconds, the frame is then 
capable of being played back on the TV monitor from the analog disk. 

The analog video disk has the capability of storing 250 TV frames on 
each of four channels, which is to say that it can store 1000 TV frames with 
four channels being available simultaneously. The outputs of these four 
channels represent the primary input to the remainder of the display system. 
These four inputs are routed to the signal multiplexing section, to the blend- 
ing control section, and then through the level and color enhancers. The 

blending control section is under the control of the computer and has the 

capability of blending up to four channels in a number of ways: (1) By 



direct super-'positionj 1. e> , tv(Q p:^cturea can appear tq be. gn the screen 
simultaneously. Each one of these pictures can have its own color enhance- 
ment and its o^ level enhancement. C2)^ By algebraically adding two frames 
before they are put on the color monitor. In this case, no separate level 
or color enhancement would be possible. (3} By matting two pictures to- 
gether Ci*e., a background from one picture and a foreground from another). 
Each one of these pictures can have its own level and color enhancement. As 
an example of matting, one could use the data from the infrared image to cause 
all of the clouds in the visible image above a certain IR brightness level to 
appear in one color and those below that level to appear in a different color. 
C4) By superpositioning grid information. This can be used, to put in over- 
lays, outlines of geographical features, conventional weather data, outline 
areas of severe weather, etc. Overlay information can come in the form of 
another TV image, or it can come directly from the computer as digital data. 

In addition, a cursor, which can be in any color the operator chooses, can 
be positioned and its size and type changed as the operator desires. The 
cursor is a primary feedback method whereby the operator interacts with the 
computer. The operator can select data, outline areas, subtract data, change 
enhancements, or designate the placement of alpha-numerics all with the same 
cursor and appropriate directions to the computer. Note that the cursor 
allows the operator to do a selection not to do a measurement. The computer 
goes back to the original uncompromised digital data to do all measurements. 
Consequently, the non-linearities of the TV display do not affect quantitative 
data analysis. 

The output of the blending control is an analog TV compatible video sig- 
nal, which could go directly to the color monitor. However, in McIDAS this 
video signal is digitized at a 13 KHz rate, using a Computer Laboratories 
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HS-615 high speed a,nalog-to-d.lgltal converter to provide the input to the 
enhancement section. Enhancement is done digitally' because it provides mucK 
more flexibility and precision than can be achieved by analog circuits at 
the required frequencies and bandr^widths. The computer is not actively in- 
volved in the enhancement; the computer Just loads the transfer function into 
the enhancement unit which is a look-up table of 64 six-bit word capacity. 

Each 6-bit digital sample of the video signal is used as an address to enter - . 
the look-up table. At the location of that address, the computer has loaded ■ ■ 
another six-bit word which represents the enhanced output value. This six- 
bit word is shifted out of memory, run through a high speed digital-to-analog 
converter and then routed out as the enhanced video signal. McIDAS includes 
three identical enhancement units; one look— up table is for the red color, one 
for green, and one for blue* Identical addresses are used for all three look- 
up tables and the words stored in each address contain both the color and the 
level enhancement information. The relative values between the three look- 
up tables determine the color, as seen on the monitor, and the absolute 
values represent the brightness. 

The output of the enhancement section is three signals; red, green, and 
blue, which together comprise a standard RGB television video format. McIDAS 
uses monitors which can accept the RGB standard directly because it yields 
higher video resolution and bandwidth. However, a standard converter can 
be added which will transform the RGB format into the U.S. standard encoded 
broadcast TV format. 

A logic interface unit between the display system and the computer, can 
store up to 16 24-bit computer words with provisions for expansion to 32, 

Each bit in these words has a specific control function in the system. The 
computer loads the 24-bit words into the interface along with a word address. 
During the vertical retrace period of the TV image the computer has time to 
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load over 150 24-bit words into the interface, and this is sufficient to 
completely change the control setup of the entire system, and also to load 
the look-up tables. The system responds to the operator very rapidly and 
can completely update the display within one vertical retrace of the TV. 

The mass storage unit (see Figure 1) consists of a modified slant 
track recorder, and a control unit. The primary purpose of the mass storage 
unit is to input SMS data from the archive system to the computer. The 
tapes generated on the archive system's modified slant track recorder are 
compatible with the mass storage unit's slant track recorder. The mass 
storage unit can also store and retrieve data generated in the computer or 
from other sources (like ATS data) which feed data to the computer via 
special or conventional data links. The control unit converts the serial 
bit stream of the slant track recorder into 24-bit parallel words which can 
then be shuttled in and out of the computer. The control unit also accepts 
commands from the computer and moves the tape on the slant track recorder 
in accordance with instructions from the computer. The mass storage unit 
can be considered to be a general purpose peripheral with more than 
50 billion bits of data on-line. The mass storage unit operates under the 
control of the computer and its specific purpose is to move data in and 
out of the computer. 
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MCIDAS SYSTEMS SOFTWARE 

Objective 

The McIDAS system is built around a data-craft 6024/5 computer. 

This computer was supplied by the manufacturer with an operating system 
called DMS and this operating system with only slight modifications is 
used to support the McIDAS software. Most of the software for this 
system consists of non-resident modules which are invoked by the 
operator or by other modules and have short lifetimes. This permits 
the entire operating structure to be many times larger than the computer 
core. 

The only important modifications to the DMS monitor program itself 
is the addition of four functions. These functions are an interval 
timer multiplexor called ITM, a spooled operator output function called 
TQ, a transmit message to program function called SQ, and an interrogate 
program message function called IQ. 

The interval timer multiplexor allows several programs concurrently 
to request interrupt routines to be entered after a given number of 
milliseconds. 

The TQ function allows programs to pass messages to the operator 
without having to wait for the messages to actually occur on the 
operator’s printer. These messages are spooled to disk and printed when 
their chance comes up. This implies that a task may have been completed 
and exited core long before the operator gets the message from that task. 
All messages from any McIDAS program to the operator are sent through the 
TQ function. 

The SQ function is the basic method of inter-program communication 
within the system. A message containing a name of a program and a list 
of eight parameters is constructed and sent to the SQ function. The 
function receives the message and returns control immediately back to 
the calling program. At least 10 times per second a check is made of 
these messages to see if every program to which a message has been sent 
if presently active. If there are any programs which have had messages 
sent to them and which are not presently active, they are started. This 
allows the transmitting program, the flexibility of not having to worry 
about whether the receiving program is presently active. If it is not 
active, it will be started at a later time. 



The IQ function Is a method by which a program picks up traffic which 
was sent to it by some other program using the SQ function. The IQ 
function will send a program its oldest piece of traffic or an indication 
that there is no more traffic for that program. The normal system convention 
is that a program continues to pick up messages with the IQ function until 
it finds that there is no more traffic; at which time it exits. This is 
the basic non-resident nature of most of the tasks on the system. 

The interval timer multiplexer is supported by a module called ITM 
which is permanently a resident in the monitor system. The functions TQ, 

SQ and IQ are partially supported by a module SYSQ which is resident in the 
system monitor and partially supported by a permanently active foreground 
routine called OPCOM, OPCOM becomes active 10 times per second, and any 
time a key is struck on the console typewriter. OPCOM handles spooling 
of operator output messages. It starts up inactive programs with messages 
in the SYSQ traffic pool, it examines the keys struck on the typewriter to 
tell whether they are important system message constructs or not, it contains 
the TV frame interrupt routine. Only two other significant modifications 
have been made in basic datacraft software. One is that the teletype handler 
has been modified to send individual characters struck on the teletype to 
OPCOM unless a legitimate system read is in progress. The other is that the 
magnetic tape handler has been modified so that parity errors do not cause 
the system to halt and query the operator. With large volumes of picture 
data, parity errors on tapes are inevitable and must be lived with. It is 
unnecessary for the operator to take positive action each time one of these 
occurs . 

Other than these changes in the operating system monitor the rest of 
the McIDAS software consists of library subroutines and programs. 

The following is a list of library subroutines and a brief description 
of their uses: 

TVD is a subroutine which performs output from the computer to the TV 
video disk. 

IK is a Fortran function which moves the bit weights within an imager 
to comply with the bit weight defined by portions of the McIDAS system. 



3 


SLEEP is a set of routines which are called by TVD and are not useful 
otherwise. 

LTV is a function which transforms from spatial TV coordinates to time 
and TV coordinates.^ That is, it handles the interlace, 

STAGE is a package which assembles and disassembles 8 bit bytes. 

10 and FIO are routines which allow Fortran linkages into the input - 
output control system, thus opening the full resources of the monitor 
to Fortran programs. ^ 

WAIT is a Fortran linkage to the system wait routine. This function 
allows a program to suspend itself until a given event has taken place. 

CSF is the name of the Fortran linkage into the functions SQ, TQ and IQ 
which have been defined previously. 

HIO is a Fortran linkage directly into the machine level input-output 
command. It is used by routines to communicate with the Me IDAS display 
system. 

GETGAM is a routine which allows programs to obtain results of a 
navigation which have been stored in a disk file. 

TVSAT is a routine which transforms from TV coordinates to spacecraft 
coordinates. 

LOOKUP retrieves data from the frames file and the tape reels file. 

LOOKUP is used by TVSAT and by other programs. 

The following is a list of the nonresident programs which form the 
majority of the McIDAS system software: 

TTY is the program which handles operator commands. TTY is call by N 

OPCOM whenever it sees the line feed has been typed on the typewriter, 

TTY receives a message from the operator and encodes it into a message 
which is sent out through the SQ function. Therefore, through TTY 
the operator can send a message to any program within the McIDAS system. 



2LANDM FRAMES and REELS and KLUDGE are jobs which are run to 
initialize the three major library data files for McIDAS: the 

landmark file, the frames file, and the reels file. These jobs are 
run only once when the system is initialized. If they were run at 
any other time, it would cause a loss of all information which had 
been stored iiT these files. 

SETKEY is a small program which allows the operators to change the 
state of any one of the twenty-four systems keys. Presently very 
few of these keys have any defined meanings. 

DPROJ is a job which is run to define the legitimate projects which 
are allowed to use the system and to initialize the systems keys 
desired for that project. 

DEFTAP is a routine which inserts a tape definition into the reels file. 

DFRAME is a routine which inserts the definition of the contents of the 
TV frame into the frames file. DFRAME is normally called by the system 
when a frame is loaded. 

WHATAP is a routine whose output is a list of the days in which at least 
one tape has been defined in the reel file. 

DVERS is a routine which allows the user to change the version name of 
the McIDAS system which is typed out anytime someone begins operations. 

RESFRM is a routine which restricts the projects which are allowed to 
write on any certain frame on the TV set. This function guarantees 
that users may destroy their own data but not the data of others. 

LOGDUM is a program which is called once a month to dump out the contents 
of the usage log. This allows a permanent record of which projects have 
been using the system and how much time they consumed, 

PRNOUT is a routine which causes the typeout of from 1 to 7 integers. 

This program is used both mainly for debugging. 



5 


ERADIR is a program which erases the directory of the 8 digital areas. 

This directory called DKDIR normally describes the information contained 
in these 8 areas. 

STATUS is a program which outputs to the operator the names of all 
presently active programs, along with their bounds and their status. 

SETF is a program which is called by the operator to specify which 
frame should be displayed on the TV set. 

DLIM is a program through which the operator defines the bounds of a 
loop. 

DRATE is a program through which the operator defines the rate for 
looping. 

LOOP is a program which supports the actual looping function itself. 

NAVFRM initiates a call to the navigation system to perform a 
navigation on the day which is presently being studied on the TV set. 

DEFPNT is a mechanism through which the operator defines the point on 
the earth which is going to be used for navigation measurement. 

DORBIT is a program which is called to define the orbital characteristics 
of the satellite in question on a specific day. DORBIT encodes this 
information and sends it to the routine DLANDM which handles all landmark, 
orbit, and other day-related data. 

DSRATE is a routine which is used to advise the system of the spin rate 
of a satellite on a specific day. DSRATE also sends its data through 
DLANDM. 

DLANDM is the routine which inserts data into the file LANDMA. Data in 
this file includes landmarks, spin rates, orbits, and beta values, 

FINDTP is a routine which lists all tape reel definitions on any given 
day. 

LISTAP is a routine which lists any single given tape reel definition. 
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FINFEM lists all the frame definitions which occur on any given day. 

SAVEDK is a routine which causes the dist directory DKDIR and the 
contents of the 8 available digital data frames to be saved on a 
magnetic tape for future use. 

RESTDK is the inverse of the SAVEDK function. It causes a previously 
saved set of 8 areas to be loaded back onto the digital disc. Through 
these two functions each user can have his own eight areas of interest 
with very little difficulty. 

DELMRK is a routine which removes an entry from a file LANDMA. DELMRK 
is essentially an inverse of DLAMDM. 

WCELL is a program which scans the file LANDMA to find out which cell 
in this file has the most entries. This allows the user to find if 
this file has any danger of overflowing. 

ED AY is a program which eliminates all entries in file LANDMA which 
are associated with a given day. 

LISLMK is a routine which lists data contained in the file LANDMA. 

LISDIR is a routine which lists all the data in the file DKDIR. That 
is, it lists the contents of the 8 presently existing digital disk 
areas. 

LFRAME is a program which lists the definition of any one particular 
frame in the TV system. 

LNDMARK is a routine which receives a landmark measurement from the 
operator, encodes it into the proper format, and sends it to DLANDM 
for entry into the LANDMA file. 

ENHOOl is a program which causes a load of the enhancement tables in 
the McIDAS system. This allows the user to change the transfer function 
between the data on the disc and the data in the TV system. 

/J 
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LOGOUT is a program which is called by any user at the end of his use 
of the system. This program records that use in the log file. 

LDCNTR is a routine called by the operator to perform a transfer of data 
from the digital tape to one of the 8 disk areas. 

ABSLD is a program which is called by LDCNTR to perform the actual 
loading process. 

LOGGIN is a program called by a user when he begins use of the system. 

CNTRL is a routine which receives coraniands from OPCOM which have been 
typed in a single key strike by the operator. If the operator strikes 
a line feed key on the typewriter, TTY is called to read a message. If 
the operator strikes some other key the data form that key strike is 
sent to CNTRL for processing. 

CC is an almost exact duplicate of the program TTY except that it 
receives its input from the card reader instead of the typewriter. This 
allows commands in the user language to be prepared ahead of time if 
desired. 

NAMLIS is a job which is run to define the key words in the operator 
language. It consists of a list of cards containing two letter keys 
followed by the name of the program to which that key is associated. 

This list is saved in a file and is available to the programs TTY and 
CC, 

LDCNTV is the program which transfers data from the digital disk to the 
TV system. 

In addition to these programs, many applications programs are also con- 
structed in the same way. That is, they become verbs in the operator’s 
language and they perform their tasks as nonresident programs of short duration. 
Therefore, as far as the system is concerned, no distinction is made between 
systems programs and applications programs; all have the same structure and 
all have the same resources available to them. 



SJOB TVD 

5A$SIGN,6,0 

$ASSIGN,5,LR 

$REW,5 

SrORTRA 

SUBROUTINE TVE - - 

DIMENSION MESX(IO) 

DATA MFSX/6HD0I0XX/ 

CALL S? 

CALL SO(MESX) 

return 

END 

SUBROUTINE TVI(N) 

6 N IS signal SYSTEM TO WRITE ON 
B EVEN/ODD IS FOUND FROM FRAME POINTER 

COMMON/SYSCOM/MDaT< 100 ) 

COMMON/TVL/L I Ne 
DIMENSION MNABL ( 4 ) , NA8LH ( 2 ) 

DATA MNARL/' 00200000, ’00400000, ‘OlOOOOOO, ’OSOOOUOO/ 
DATA NABf.H/’11252500, '22525200/ ' 

B MODULATOR ENABLE 

CALL HIO ( » 101, '1120^MNABL (N ) ) 

6 HEAD ENABLF ■ , 

MF = NDAT (56 ) 

MF=M0D(MF, 2 ) +1 

CALL HIO( *101, '10Q0 + 16»7,NABLH(MF) ) 

LINE=1 

c temporarily blank display 

CALL HI0( '101, *2000^16«5,0) 

RETURN 

END 

SUBROUTINE TVD(J) 

common/tvl/line 

DIMENSION J(700) 

CALL S2 

CALL HTO( *101, '1000 + 16*4, *01000000) 

ICW= *in00-»-4*16 
CALL TVX( lew, J) 

CALL HTOC’lOli *1000 + 4*16, ♦ 00600000'*-LTV(LlNE^ ) 

LINE=LTNF+1 
CALL SI 
RETURN 
ENDS 
SFILEMA 

ESTaB,5,TVD,0,1,0,4 
EXIT 

SEOvi 




SJDB IK - 

$ASSIGN,5, LRi 6» 0 

$REW,5 

FUNCTION IK(J) 

C MOVES BITS around TO OCCUPY BINARY WEIGHTS FOR IV CQlOR BRIGHTNESSES 
DIMENSION IB(18), fW(18) 

DATA IW/13,14,15,16;17,18,7,8»9,10,11,12,1,2,3,^,5>6/ 

K = U 

DO 200 JA=1,18 
I8( JA)rMOD(K#2 ) 

200 K=K/2 

IK = 0 

DO 201 JA=1,18 
J8=IW(JA> 

2D1 IK=2»IK+ IB ( JB) 

R+TURN 

ENDS ^ 

SFfLEMA 

ESTAB,5,iK,0/l,0,4 
EXIT 
. $E0J 



sjob sleep 

SASsIGN,6,0>5#LR 

SREW,5 


SI, SI 


5a$sem6 

)i:DEr 
^:def 

XDEF 

Gap 

TMA 
TAM 
GAP 
TJM 
TNK 
TMA 
NX I 
Dew 
BNZ 
TMA 
DOB 
XOB 
LLA 
DMA 
ODW 
BNH 
RXI 
ftOI 
BWK 
TNK 
TMA 
HXI 
Dew 
BN2 
TMA 
ODW 
BN2 
PXI 
NOP 
BWK 
BUG* 
TFM 
TJM 
TLO 
TOI 
BLU 
BUG# 
TJM 
TMA 
BNN 
TLO 
BLU. 
BUG* 

data 

T2M 


S2,S2 

TVX,TVX 

1 

0,1 

cw 

1 

ret 

699 

CW 

*101 
*-l 
0,1 
* 300 
•377 
10 

=•00200000 

•101 

*-l 

1 

LOOP 

323 

CW 

•101 

*-l 

= • 00200000 
•101 
*-l 


L00P2 

RET 

W 

RET 

INT 

40 

•30 

RET 

RET 

W 

OK 

W 

SWAl 
RET . 

0 

W 


CW 

TVX 


LOOP 


LO0P2 


SI 


S2 


OK 

RET 

W 

INT 




THE* 

niSINT 


THA 



TD4 



BUG 

0, J 

DISINT 

DAC 

’ 200 


ENDS 


SFfLEMA 



ESTAB,5, 

SLEEP, 

0.1,0, 4 

EXIT 




SEOJ 




SJOB LTV 
SASsiGN,5iLR 
SREW,5 
SFORTRA 

FUNCTION LTV(J) 
K = d/? 

L=H0D(J»2) 

LTV=K+L«263 

RETURN 

ENDS 

SFiLEMA 

ESTAB*5,LTV,0,1,0,4 

EXIT 

$E0J ■ 



*J08 STAGE 


sassign. 

6,0 


^OPTIONS 

0 7 

8 23 

^ASSIGN 

5 = LR 


SREW,5 

SaSSEMB 




IDEN 

STAGE 


NAME 

STAGE 



PACK, PACK 


XDEF 

CRACK, CRACK 

CRACK 

GAP 

1 


TMA 

0,1 


TAK 

Gap 

1 


TIA 



bMA 

mask 


DMA 

INSTl 


TAM 

PLUGl 


Gap 

1 


TIA 

DMA 

MASK 


DMA 

INST2 


AKA 

NKK 



TAM 

PLUG2 


TJM 

RET 


TMJ 

JAD 


TOA 

0 

PLUGl 

4 « » 


P,LtlG2 

' 4 » » 



BBJ 

* + l 


BWK 

PLUGl 


BUC* 

RET 

JAD 

Data 

’ 20000000 

MaGK 

DATA 

•77777 

INSn 

EMB 

0 

1NST2 

TAM^ 

0,K 

INST3 

TMA 

d,K 

1NST4 

RBM 

0 

RET 

4««- 


« 

PACK 

GAP 

1 


TMA 

0,1 


TAK 

Gap 

1 


TIA 



DMA 

MASK 


DMA 

INST3 


AKA 

TAM 

PLUG3 


GAP 

1 


TIA 

DMA 

mask 


DMA 

1NST4 


NKK 



TAM 

PLUG4 



TJM ret 
TMI JAD 

PLUG3 

PLWG4 

BBI *+l 
BWK PLUG3 
BUG* RET 
ENDS 

SrtLEMA 

ESTAB.5,STAGF,0,1,0,4 

EXIT 

Seoj _ ■ 



r* 



SJOB ITM 
SASSI GN, 6, 0 
50PTI0NS 23 
5ASSIGNi5»LR 
SREW,5 
SASSEMB 

IDEN interval TIMER multiplexor 

♦ . ENTRY IS 

* ) K LOG 

« ♦ 1 COUNT . . 

« . WILL DO BLL TO LOG IN ( K ) 

» . AFTER I milliseconds 



tDEf 

TIRTN, TIRl 


XDEF 

ITM, ITM 

ISAVE 

BLOK 

5 

TSAVE 

BLOK 

5 

clok 

EQIV 

• 77774 

CCOUNT 

data 

-1000 

N 

DATA 

0 


Blok 

16 

Loe 

BLOK 

1 


BLOK 

16 

Count 

BLOK 

1 

CALLER 

BUC 

0,K , 

tirtn 

«»« 



TRM 

ISAVE 


HIT 



AOT 

100 


RCT 


- 

AUM 

CCOUNT ■■ 


BNZ 

RACK 


AUM 

CLOK 


TNA 

10 0 0 


TAM 

CCOUNT 

CaCK 

ezM 

N 


BOZ 

RET 


TMK 

N 

KLOOP 

AUM 

COUNT, K 


BOZ 

GOTl 

c 

BWK 

KLOOP 

Ret 

TMR 

ISAVE 


BRL* 

TIRTN 

GOTl 

TRM 

TSAVE 


TMK 

LOC,K 


BLJ 

CALLER 


TMR 

TSAVE 


TMI 

N 


AUM 

N 


BOH 

RET 


SKI 



BOZ 

RET 

ILOOP 

TMA 

LOC-l/K 


TAM 

LOC.K 


TMA 

COUNT-1 ,K 


TAM 

COUNT, K 


SOK 

1 


location OF ONE SECOND CLOCK 





gwi 

ILOOP 


OUC 

RET 


ITH 

WXI 



NI I 
TMA 

N 


iKA 

C2M 

N 


OOH 

NEW 

PLOOP 

CMA 

LOC,K 


BOH 

OLD - 


BWK 

FLOOR 

NEI^ 

TMK 

N 


SDK 

1 


TKM 

N 

old 

TIM 

COUNT , K 


TAM 

LOC,K 

OUT 

RXI 



BUG 

0 , J 


ENDS 

•- 

IFILEMA 

ESTAB*5 

; ITM, 0 

,1/0,4 

EXIT 



$EOJ 





ssjOB no 

SOPTION 23 
S ASSIGN 6 0 
5 ASSIGN 5 LR 
SREW,5 
SFORTRAN 

subroutine SCRA( I 

CALL QUIFK I ) 

CALL IO( »17+64»I, J,3) 

RETURN 

END 

SUBROUTINE OPN(LUN) 

CALL I01(64*LUN+7^ 

RETURN 

END 

SUBROUTINE CLOS(LUN) - 
CALL I01(LUN*64+8) 

RETURN 

END 

subroutine QUIFT(L'UN) 

CALL I0K64*LUN) 

RETURN 

END 

subroutine REW(LUN) 

CALL QUIFT(LUN) 

CALL I01(64«LUN+'l6^ 

return 

END 

SUBROUTINE WEF(LUN) 

CALL QUIET(LUN) 

CALL I01(64*LUN+6) 

RETURN 

END 

SUBROUTINE RD AN ( LUN^ N , X ) 
GALL QIIIET(LUN) 

CALL IO(I.UN*64 + l,N,X) 

RETURN 

END 

SUBROUTINE WRAN ( LUN ? N, X ) 
CALL QUIFT(LUN) 

CALL in(64»LUN-^2,N,X) 

RETURN 

END 

SUBROUTINE read(lun;n,x) 
CALL QUIFT(LUN) 

CALL I0(64*LUN+3,N,X) 

RETURN 

END 

SUBROUTINE WR I T ( LUN ;N , X ) 
CALL QUIFT(LUN) 

CALL IO(64*LUN>4,N,X) • 

RETURN 

END 

SUBROUTINE RDANW ( L‘UN , N, X ) 
CALL ROAN(LUN,N,X0 
CALL QUIFT(LUN) 



RETURN 

END 

SUBROUTINE WRANW (UUN , N, X )' 

CALL WRAN(LUN.N, X ) 

CALL OUIFT(LUN) 

RETURN 

END 

SUBROUTINE READW ( LUN , N, X ) 

CALL RFAD(LUN,N,X) 

.CALL OUIRT(LUN) 

RETURN 

END 

SUBROUTINE WR I TW ( L'UN , N , X ) 

CALL WRIT (LUN, N, X) 

CALL QUIFT(LUN) 

RETURN 

ENDS 

SFfLEMA .. ■ 

ESTAB/5,FI0.0,1,0,4 

EXIT 

SEOJ 





SJdB 10 

SASSIGN 

,6*0 


SOPTION 

23 


^ASSIGN 

5 LR 


$REW,5 


‘ 

SASSEMB 


NAME 

10 


IDEN 

10 


?:DEr 

10,10 


^:def 

101,1 

1 

gap 

1 


TJM 

RET 


TIM 

ISAVE 

AGAIN 

TMI 

ISAVE 


TMA 

nak 

0, I 


BLU 

si/d 


BON 

AGAIN 


BUC« 

RET 

10 

GAP 

1 


TMA 

0, I 


TAM 

PCKT 


Gap 

1 


TMA 

0,1 


TAM 

PCKT+1 


Gap 

1 


TIM 

PCKT+2 


TJM 

RET 


TLO 

PCKT 


bLu 

SI/0 


BUG* 

RET 

RET 

<tE « « 


PCkT 

BLOK 

3 

ISAVE 

‘(e « ff 

ENDS 


sfilema 

ESTAB»5 

» lo.o; 

1,0,4 


EXIT 

Seoj 



S5J0B PROJS 
SASSJGN 6 0 
SFILEMA 

CREATE, PROJS, 0» 1,112,1 
EXIT 

$EOJ 


o27 


$J0B csr 


SOPTIONS 

; 0 8 

23 

^ASSIGN 

6 0 


^OPTION 

^3 


SASSIGN 

7 7 


^ASSIGN 

10,2? 

,22,W2 

SASSIGN 

5 LR 


^ASSIGN 

SREW,5 

15 LR 


sassembler 



XDEF 

SO, SO 


XDEF 

10, GO 


XDEF 

TO, TO 

GO 

TJM 

RET 


GAP 

1 


TMD 

0,1 - 


TDM 

STUFF 


TIK 



8LU 

•35 

STUFF 

4 « » 

■ 4 fl- 
BUC» 

RET 

TO 

GAP 

1 


TJM 

RET 


TIK 



BLU 

•37 


BUG* 

RET 

SO 

GAP 

1 


TJM 

RET 


TIK 



BLU 

*36 


BUG* 

RET 

RET 

4« « 
ENDS 


sfilema 

ESTAB,5; 

GSF,0 

,1,0,4 


EXIT 

SEOJ 



A 



SiJOB WAIT 


$0PTI ON 

23 


SASS.IGN 

6 0 


^ASSIGN 

S LR 


SREW,5 

Sassemb 


I DEN 

WAIT 


XDEF 

wait»wait 

ftAlT 

GAP 

1 


TJM 

RET 


TIK 

Glu 

SWAI 


BUC^^ 

RET 

RET 

DATA 

0 


ENDS 


tMLEMA 

ESTAB»5 

#MAIT» 

0»li 0>4 

EXIT 

SEOJ 





$J08 SQUISH 

'^OPTION 23 

5ASSI6N,6,0 

SASSIGN,5>LR 

SREW,5 

SSrORTRAN 

subroutine SQUrSH( I8UFF,N) 
DIMENSION IBUFr(l35) 

DATA IR/MO/ 

N=e 
J = 0 

1 J=U+1 

IF( J-135)2,100,100 

2 N = N*^1 
IBUFF(N)=I8UFF( J) 

IF( IBUFF( J)-T 8)1,9, 1 

9 IBUFF(M)=1 

3 J2J+1 

IF(J-135>109, 100,100 
169 IF(IBUrr( J)-IB)2,110,2 
110 IBUFF(N) = IBUFF (N)-fl 

lF(IBUFF(N)-’37)3;2;3 

160 N=N-1 

IF(N.EQ.l )GOTO 101 
1F(IBUFF(N) .GT. MQ)GOTO 101 
GOTO 100 

161 N = N-»-l 
IBUFF(N)=0 
RETURN 
ENDS 

SFIIEMA 

ESTAB,5, SQUISH, 0,1, 0,4 

EXIT 

SEOJ 

$EC)J ■■ 


JO 




$J08 ASR 
SASSIGN 5 LR ' 

$REW,5 

SASSIGN 6,0 ' ' 

SOPTIONS 23 
SASSEMB 

IDEN ASR tty HANDLER MODIFIED BY J BENSON 

XDEF ASR, ASR 

XDEF AFLAGS, AFL'AGS 

)*:DEF ASRIN,ASRfN - . 

)>:def asrout, asrout 
XDEF LFFL,LFFL 
XDEF OCBUF,OCBUF 
XDEF OCMSGE,CCMSG • 

XDEF OCRDY/oCRDY 
XDEF 0CENTR,0CENTR 
DISINT EOIV '200 
TTY EOIV ’0000 
ASR TAE 

ISW TTY 
DOB 1 
B02 

« PUNCT 

TEA 

B02 $CSR>N, 

BNN NOTCLR 
tzm TASRBSY 
THM AFLAGS 
BUG 0,J 
NOTCLR GOB 1 

B02 READ 
eoB 2 
B02 WRITE 
eOB 6 

BON FERR 
eOB ’10 
BOP FERR 
BUG . PENAB4 
FERR TMA DISINT 

UEl 

BSL SDEALRS 
TOC ’10 
BUG 0,J 

Read blj holdtty 

TOA RO 
OMA AFLAGS 
TAM AFLAGS 
TNA 3 
TAM INBYT 

TVV INXVXD 
* WORD COUNT 

TMK 3,K 
TMA 1,K 
TAM 1,1 
DMA =24 




r- 




BNP 

TOA 

NAA 

TAM 

TAM 

* p]ll blank 

TOA 

TAM 

TNI 

-T'M-A- 

TAM 

BNI 

TOB 

ODW 

BN2 

TFM 

BLJ 

TLO 

BSL 

« INPUT DONE 
TMA 
UIl 
TMJ 
TMJ 
TOI 
TMA 
TAM 
KOI 
KOJ 
KUM 
Bon 
TMI 
TMI 
SOI 
BNP 
N1 I 
TMA 
TAM 
AOJ 
BWI 
TMA 
UEl 
BSL 
TOC 
BUC 

WRITE BLJ 
TMK 
TMA 
TAM 
BMA 
BNP 
TOA 
NAA 
TAM 
TMJ 
TMI 


* + 2 
24 

INCNT 

INCNTl 

S 

INPNT 

RSPNT 

24 

L a N K 5 “ ■ 
INBUF+24, r 

•212 

TTY 

SASRBSY 

reltty 

INCNT 
TWAI TP 

DISINT 

3,K 

2, J , 

INBUF 

0,1 

0, J 
1 

1 

INCNTl 

*.5 

1, K 
1,1 
24 

* + 6 

BLANKS 
0, J 
1 

*-2 

DISINT 

a^DEALRS 

4 

0 , J 

holdtty 

3 , K 

1, K 
1,1 
= 24 
« + 2 
24 

nUTCNT 

2, K 

0UT8FD 


LINF FEED 


DEAi.LOCATEP 




r 



TAK 

TMA 

TAM 

AOI 

AOJ 

BWK 

BSL 

TMA 

DOB 

TAM 

TMA 

TAM 

TMA 

TAM 

TNA 

TAM 

TMA* 

URA 

KOB 

- BO? 

AUM 

K06 

BOZ 

TZM 

KOB 

BOZ 

KOB 

8NZ 

LRA 

TAM* 

TFM 

ftuc 

feOLF TAM* 
AUM 

SENDl TOB 

SENDIT ODW 
BNZ 

PENABL TFM 
TOA 

Dew 

BNZ 

PENAB4 BLJ 
BSL 
TOC 
feuc 

Kilblnx *** 

TMI 

PII 

TMA 

SMA 

BNZ 

AUM 

BUC 

BUG* 

OCMSG *** 
HXI 
TAM 


0, J 
0, I 
1 
T 

KILBLNX 

AFLAGS 

R1 

AFLAGS 

3 

OUTBYT 

OUTBFD 

OUTPNT 

2 

LFFL 

OUTPNT 

a 

»61 

nOLF^ --- 
LFFL 
' 60 
nOLF 
LFFL 
MO . 
nOLF 
*53 
SENDl 
8 

OUTPNT 

OUTBYT 

SENDIT 

OUTPNT 

OUTBYT 

'212 

tty 

«-l 

SASRBSY 

5 

TTY 

*-l 

RELTTY 

SDEALRS 

4 

0 » J 

OUTCNT 

OUTBUF-1 , X 
BLANKS 
* + 3 

OUTCNT 

KILBLNX+i 

KILBLNX 


SAVA 



■’W- 



TMA 

DISINT 


UIl 



RXI 



TMA 

SAVA 


feSL 

SREAL* 


THE 

OCMSG 


TMA 

=*177777 


DAE 

. ■ 


TEM 

retad 


BSL 

SJDEALRS 


TRM 

MBUF+3 


TMI 

SGAPLE 


TMD 

1,1 


TDM 

MBUF 


TOA 

•272 


TAM 

MBUF-*-2 


Mil 



TIM 

SOCUSER 


TLO 

MBUF 


BLU 

*37 

OCREJ 

BLJ 

reltty 


TMJ 

retad 


T2M 

tocuser 


BUG 

0, J 

SAVA 

4 « » 


holdtty 

HXI 



BHM 

SASRBSY 


BNN 

HOLDTl 


RXI 



TLO 

SASRRSY 


bsl 

SWAITP 


BUG 

HOLDTTY 

HOLDTl 

TMA 

niSINT 


UIl 



TMA 

STTYIN 


UIl 



RXI 



BUG 

0, J 

reltty 

TMA 

. STTYIN 


UEl 



TMA 

DISINT 


UEl 



BUG 

0, J 

ASRIN 

«■*«■ 



TRM 

INSAVE 


IDW 

TTY 


BN2 

*-l 


TAE 



KOB 

*377 


B02 

OGREQ 


kOB 

*337 


BOZ 

KEXIT 


TMA 

aflags 


DOB 

R2 


BOP 

OCINPT 


TMA 

AFLAGS 


DOB 

RO 


INTFRRUPT IN’PUT RTINE 



f 




BN2 

NKEXIT 


TEM» 

•TMEMSIH 


TME 

•200 


T2A 



TD4 



BUG 

KEXIT 

Mkexit 

TEA 



KOB 

’336 


BOH 

RSETIN 


TFM 

SASRBSY 


KOB 

’212 


BOH 

KEXIT 


DOW 

TTY 


BNH 

*-l 


KOB 

’215 


BOH 

INFIN 

PA0KW 

TMA 

AFLAGS 


TOA 

’177 


DAE 



TMAtt 

INPNT 


TMI 

INBYT 


EXM 

SHIFTl-^3, t 


TEB 



EXM 

SHIFT2+3,f 


TAM* 

INPNT 


AUM 

INBYT 


BNH 

KEXIT 


TNA 

3 


TAM 

INBYT 


AUM 

INPNT 


AUM 

INCNT 


BON 

KEXIT 


TFM 

OREL ■ 

INFIN 

TOA 

5 


Dew 

tty 


BNH 

*-l 


TMA 

AFLAGS 


DOB 

6 


TAM 

AFLAGS 


THM 

INCNT 


TME 

niSINT 


THA 



TD4 


KEXIT 

TMR 

INSAVE 


BRL* 

ASRI N 

« 



RSETIN 

TNI 

24 


TMA 

BLANKS 


TAM 

INBUF+24, t 


BWI 

*-l 


TMA 

INCNTl 


TAM 

INCNT 


TNA 

3 


TAM 

INBYT 


TMA 

INBUFD 


TAM 

INPNT 


TFM 

LFFL 


c=3-5 


A 


OCREQ 


OCiNPT 


OCPIN 


RSET2 


TFM 

CRFL 

TO A 

5 

DCW 

TTY 

BNZ 


BUG 

kexit 

TMA 

AFLA6S 

DOB 

R2 

BNZ 

KEXIT 

CZM 

OCRDY 

BNZ 

KEXIT 

AOM 

R2 

DAC 

AFLAGS 

TOA 

OCPNT 

TAM 

RSPNT 

TNI 

24 

TMA 

BLANKS 

TAM 

OGBUF + 24, 1 

BWI 


TMD 

0CN24 

TDM 

OCCNT 

TMA 

OCBUFD 

TAM 

nCPNT 

BUG 

KEXIJ 

TEA 


KOB 

*336 

eoz 

RSET2 

kOB 

*215 

BOZ 

OCFIN 

kOB 

*212 

BOZ 

KEXIT 

TOA 

*177 

Dae 


TMA* 

OGPNT 

TMI 

OCBYT 

exM 

SHIFT1*3, I 

TE8 


exM 

SHIFT2+3, f 

TAM* 

OCPNT 

AUM 

OCBYT 

BNZ 

kexit 

TNA 

3 

TAM 

OCBYT 

AUM 

OCPNT 

AUM 

OCCNT 

BON 

KEXIT 

TMA 

AFLAGS 

DOB 

3 

TAM 

AFLAGS 

TOA 

INPNT 

TAM 

RSPNT 

TFM 

OCRDY 

TNI 

•22 

BSL* 

PPPPP 

BUG 

KEXIT 

TFM 

SUPARF 




TPM 

GRFL 


tma 

AFLAGS 


DOB 

3 


TAM 

AFLAGS 


BUG 

KEXIT 

OCENTR 

HXI 



TJM 

RETOC 


TNI 

2A 


TMJ 

OCBUFD 

OCEUP 

TMA 

0,K 


TAM 

0, J 


AOK 

1 


AOJ 

1 


BWI 

OCELP 


TFM 

OGRDY 


TNI 

*22 


BSL# 

PPPPP 


TMJ 

RXI 

RETOC 


BUG 

0, J 

RETOC 



ASROUT 

i ** 



TRM 

OUTSAV 


T2M 

CRFL 


&N2 

nocR 


AUM 

l-FFL 


BOP 

NOTLF 


TOA 

'212 


ODW 

TTY 


BN2 



TMR 

OUTSAV 


BRL* 

ASROUT 

NOTLF 

T2M 

LFFL 


TMA 

AFLAGS 


DOB 

R1 


- B02 

INHASR 


GHM 

OUTCNT 


B02 ■ 

OUTFIN 


TMA» 

OUTPNT 


LRA 

8 


DOB 

•200 


DDW 

TTY 


BN2 



Tam* 

OUTPNT 


AUM 

OUTBYT 


BON 

PEX 


AUM 

OUTPNT 


AUM 

OUTCNT 


TNA 

3 


TAM 

OUTBYT 


BUG 

PEX 

OUTFIN 

TMA 

AFLAGS 


DOB 

5 


TAM 

AFLAGS 


BOZ 

* + 2 



DOeR 


TFM 
TOA 
ODW 
BNZ 
BUC 
TOA 
ODW 
BNZ 
BUC 
INHASR TMA 
INH2 TZM 
TOA 
OCW 
BNZ 
THE 
THA 
TD4 
BUC 

RFLAGS HLT 
INPNT HLT 
INCNT HLT 
INBYT HLT 
INBUFD DAC 
« 

OCPNT HLT 
OCCNT HLT 
OCBYT HLT 
OCBUFD DAC 


INBUF 

Blok 

Blanks 

data 

bCBUF 

RDAT 

Pi 

data 

data 

MBUF 

RDAT 

OCRDY 

HLT 

OUTBFD 

DAC 

BRFL 

HLT 

LFFL 

HLT 

HOLDLF 

HLT 

INCNTl 

HLT 

SHiFTl 

NOP 


RRA 

SHIFT2 

NOP 

RRA 


LRA 

NOP 

OCN24 

DATA 

Bshft 

DATA 

RLA 

BSHIFTl 

NOP 

RLA 

LRD 

feSPNT 

TEA 

LRD 

DATA 


. LFFL 
*215' 
TTY 

PEX 

•215 

TTY 

PEX 

AFLAGS 

SASRBSY 

4 

TTY 

niSINT 


PEX 


INBUF 


nCBUF 
24 

•10020040 
24 ( '10020040 ) 
•10020040 
“1 

24 ( ' 10020040 ) 
0UT8UF 


8 

8 

8 

-24 

-3 

8 

16 

8 

16 

0 



JNSAVE 

BLOK 

5 

OUTSAV 

BLOK 

5 

OUTPNT 

HLT 


OUTCNT 

HLT 


OUTBYT 

HLT 


OUTBUF 

BLOK 

24 

RETAD 

« « ft 


REGSAV 

BLOK 

5 

60 

EDI V 

1 

6l 

EQIV 

2 

B2 

EOIV 

4 

B8 

EQIV 

MOO 

B9 

EQIV 

*1000 

PPPPP 

DAC 

ENDS 

SREAL* 

SFiLEMA 
ESTAB,5. 
EXfT 
$E0 J 

ASR,0 

,1,0,4 



SjOB sir 

SASSIGN, 0 
SASSIGN»7,11 
$REW, 7 

$A$SIGN,10,2:^,?3,W1 
$REW, 10 
Futility 

. SRCEUD 


.repl 

21,56 


. INSE 

91 



SMA 

^RBUFSH 

.repl 

115,119 


.REPL 

122,123 



TOA 

1 


BLJ 

^SADWRIT 

.REPL 

137,138 


.REPL 

141 



BLJ 

9JADREAD 

.REPL 

165,180 



TOI 

5 


TMD 

PNAME 


INK 

•103 


BSL« 

PPPP 

. INSE 

181 


PPP.P 

DAC 

?SREAL#,K 

PNAME 

DATA 

♦2224711 


DATA 

♦2502004 

.INSE 

.ES:iT 

EOF . 



5sASSIGN,7,23 
$REW,7 
5JOPTIONS . 
lOPTIONS 23 
SA$SIGN,5,LR 
SREW,5 
SASSEMB 
SFiLEMA 

ESTAB,5,$IR,n, 1,0,4 

EXIT 

$E0J 






$JOB MT 
SASSIGN 5 LR 
$REW, 5 
S^ASSIGN 6,0 
Soft IONS 23 
^ASSEMBLER 

IDEN MT HANDLER 

* ENTER handler FROM lOC WITH 

* ( I )iFGB ADDRESS 

* (J)tOPFN 

* (K)rTEMP ADDRESS 

* (E)ipDCT relative ENTRY ADDRESS 

* (A)ipyNCTION CODE 

* (0,t)^status word 

* BIT 23 = BUFFER BUSY 

^ ■ 22 = WORD COUNT NOT COMPLETE 

* 21 = EOF 


■ft 

■ft 


■ft 


« 


12 
6 
. 0 


- 20 ERROR' 

‘ 19 = <1) OPENED, (G^ CLOSED 
18 = (1) FOB, (0) DEVICE 
17 = (1) PERMANENT ASSIGNMENT 
“ 16 = ERROR CODE (IF 20 SET-) 

- 11 =L0GICAL DEVICE NUMBER 

- 5 = PHYSICAL DEVICE NUMBER 


ft 


(1,T 

ft 


(1,K 

ft 


(2,K 

■ft 


(3,K 

ft • 


( A-5 

ft 


RESET ENTR 

ft 


< A)? 

ft 


il)^ 

ft 


( J) =! 


XDEF 

MGAH, MCAO 


xdef 

MCAHO , MCAQ 


XDEF 

MCAH1,MCA1 


XDEF 

MCAH2,MCA2 


XDEF 

MCA IR, MCA! 

MCACU 

EOIV 

♦ 0300 

ft 



HCAO 

BLK 

MCST 

MCAl 

BLK 

MCST 

MCA2 

BLK 

MCST 

MC$T 

SOK 

MCAl 


CBA 



BOZ 

STATUS 


BON 

RESET 


TIM 

FCBP 


TKI 



TMK 

SCURNT 


TMK 

13, K 


TMJ 

2,K 


TKM 

CW 


TMK 

3,K 


BON 

* + 3 


TME 

2,K 


TMK 

1 ,K 


) = parameter/parameter address 

) = FOB address 
) = return ADDRESS 

) = USER PARAMETER/PARAmEJER ADDRESS 
,K) = USER E-A 
Y I 
-1 

( DEVICE NO* ) * (2) 

RETURN ADDRESS 


BUILD CORRECT 
TEST FUNCTION 
STATUS check 
FUNCTION CQDE =-1^ 


IRANSPORT 

CODE 


NO* IN (K> 


RESET HANDLER 


SET TRANSPORT No, IN ( i ) 

RESTORE ADDRESS OF TAlBE CONTANING TEMP 

ADDRESS OF TEMP 

PUT RETRUN ADDRESS IN (J) 

SAVE (K) TEMPORARTLY 
PARAMETER ADDRtSS 
SKIP ADDRESS ANd WORD COUNT 
BUFFER address IN (E) 

WORD COUNT IN lK> 





TRM 

eOB 

&OH 

TMA 

UEl 

TMA 

T2K 

THM 

BO? 

TMD 

DIA 

TDM 

.TMK 

BLU 

TMR 

HCSTOI TMK 
BSL 
eoB 
BNP 

MCBT02 TOE 
BUG 

MCST03' T?M 
T?M 
T?M 
TOA 
TAM 
TIA 
BSL 
OBB 
BN? 
TMA 
BUG 
TMA 

MGST05 'AAM* 
BUG 

MGSTIO TMK 
OBB 
BO? 
TMA 
GOB 
BO? 
GOB 
BO? 
GOB 
BO? 

HC$T20 TOJ 
BUG* 
Bag 
DAG 
DAG 
DAG 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 


Trans. 

•IP 

CLOSE 

SDISINT 

Fc - ; 

BFLAG 

FOTFLAG 

• CSTOl 
MESSX 

FOTMSG 

fotmad 

s;hold 

TRANS. 

CW 

TDEAL 

MAXFC 

MCST03 

♦11 

SSABORT 

RETRYF 

FRASEF 

RPFLAG 

1 

HFLAG 

ISW 

RO 

MCSTIO 

=♦04010000 

MCST05 

=•04110000 

FCBP 

EXIT 

FC 

R1 

MCST20 

FC 

♦02 

MCST05-1 

• 04 

MCST05-1 
' 06 1 
MCST05-1 
FXIT 
* » K 
SR 
SW 
RR 
RW 

FRASE 

WEOF 

OPEN 

CLOSE 

RPF 

RSF 


SAVE REGISTERS 
IS IT A CLQSE 

ALLOW dispatcher 

RESTORE FUNGTIOn CODE 
clear binary flag 
clear EOT flag 


OR IN TRANSPORT NO. 

STORE MESSAGE 

HOLD-OUTPUT MESSAGE 

RESTORE (K^ 

DEALLOCATE GORE 

FUCTION CODE TOO LARGE ? ■' • 

NO, GO ON :r: 

ABORT CODE ll-^LUEGAL FUNCTION CODE 

ABORT routine 

CLEAR RETRV FLAG 

clear ERASE FLAq 

clear reposition flag 

SET DIRCTIQN flag FORWARD 

Transfer transport no', to (a) 

INPUT HARDWARE STaTUS WORD 

BIT ?ERO SET-DEvICE ON LINE 
ERROR CODE (1) DEVICE OFF-LINE 

ERROR CODEIll) FILE PROTECTED - 

MERGE WITH PCB WORD 

EXrT 

RESTORE FC TQ IK) 

QUERY Bn I 

BIT 1 NOT SET : FILE NOT PROTECTED 
RESTORE function CODE 
CHECK FOR symbolic WRITE 
FILE PROTEGTEDjCANNOT WRITE 
check for binary WRITE - -■ 

FILE PR0TEGTED;CANN0T WRITE 
CHECK FOR WRITE goF 

BUILD EXIT 

SYMBOLIC read (01) 

SYMBOLIC WRITE (02) 

BINARY READ <03) ‘ 

BINARY write (O 4 ) 

ERASE TAPE (05) 

WRITE END or f-IUE (06) 

OPEN FILE (07) 

CLOSE file (101 
REPOSITION file (11) 

BACKSPACE PILE (12) 




HktFC 

RESET 


RESETl 

STATUS 


«• 

« 


BR 

BSRW6 

BSRWIO 

BSRW12 


BSRW15 

fesRwie 


DAC 

ADF 

DAC 

RSR 

DAC 

ADR 

DAC 

REW 

DAC 

SCRA 

DAC 

FXIT 

DAC 

SCFA 

EQIV 

*-MCST20-2 

TOA 

•1706 

OCW* 

MCACU 

TMA 

SPDCTW2, I 

Bnn 

NSA 

* + 3 

TAM 

SPDCTW2, I 

TMA 

PIL 

UAl 


UEl 

... 

TMI 

SMCABF ... 

BOH 

RESETl 

Nil 


TMA 

0, I 

DMA 

=*01407777 

TAM 

n, I 

THM 

^KMCABF 

BUC 

0, J 

TKE 

TMK 

5;CURNT 

TMK 

13, K 

BLJ 

SCSREO, 


TEJ 

TME CRA^J. 

CHA 

BUG 0,K 

RINARY/SYMBOL IC 
TME RCODE 
TFM RFLAG 
TMA WC 
BON MCST02 
TNA • ? 

TAM RETRY. 

TOA WC 

Daw mcacu 
BNE 

TMAtt FCBP 
BON *+3 
NSA 

TAM* FCBP 
TEA 

TAM CW 
TME FCBP 
NEE 

TEM IRMCABF 
DMA ^MCATOT,! 

C2M RFLAG 


advance file (13) 

BACKSPACE RECORD (14) 
ADVANCE REGORD (15) 

REWIND (16^ 

SET CRA (12) 

SEEK CRA ( iLLbGAL- ) (20) 
SET CFA (21) 

MAX. FUNCTION CODE 


IS IT HERO 
negate ADDRESS 
NO-PICK UP 1ST WORD 
SAVE BUTS 0-lli’l7,l8 
RESTORE modified WORD 
clear BUSY FLAG 
EXIT 

.SAVE TRANSPORT , 

.RESTORE TEMP To (K) 

.GET FILE status 

RETURNS: (A)=STaTUS (K)=USER RTN ADORES 
(E7=UNChANGED transport . 

. ( J)=TRANSPORT , 

.'(E) = CRA 

(C) = f(status) 

^RETURN TO USER 
READ /WRITE 
READ CODE 
SET BINARY FLAG 

PICK UP parameter address if NEGATIVE 
IF NEG. ERROR 
. RETRY COUNT 

SET FOR 5 TIME RETRY 
PICK UP address of WC 

BUSY 

PICK UP FGB WORD 
BIT 23 SET ? 

NO 

RESET SIGN 
(A) = CCMMAN word 
SAVE command WORD 
FCB ADDRESS 
NEGATE 
SET BUSY 

MERGE TAPE OPTION WORD INTO COMMAND 
IS BINARY ELAG SET ? 



BsRW20 




B02 

* + 2 



DMA 

=♦77737777 

RESET BINARY BIT 


OCW 

mcacu 



BN? 


BUSY 

« 

BUC 

0 , J ' 

EXIT (WITY (C)rO) 



BINARY/SYMBOLIC WRITE 



THE 

WCODE 

WRITE CODE 


BUG 

RSRW6-1 

GO WRITE REGORU 

« 


SYMBOLIC RRTTE 


sw 

TMA 

TMCATOT, I 

PICK UP TAPE OPTIONS WORD 


LRA 

9 

TEST MODE BIT fl4) 


BNN 

SW20 

ASCII MODE? NO CONVERSION 

swio 

TMI 

wc 

CONVERT ASCI I iQ BCD 


TMK 

RA 

BASE address 


OBB 

R1 

TEST TUPE bit 


BN? 

SWll 



BLJ 

SS.CAE 

9 TRACK CONVERT ASCII TO 


Bug 

SW12 


SWll 

BLJ 

TS.CAB , 

7 TRACK CONVERT ASCI I TO 

SW12 

TMI 

TRANS. 

RESTORE transport , 


TMJ 

RA 

RESTORE RETURN ADDRESS 

SW20 

TME 

WCODE 

WRITE CODE 


BUG 

RSRW6 




SYMBOLIC READ 


SR 

TMA 

$MCATOT>I 

PICK UP TAPE OPTIONS WORD 


LRA 

9 



TAM 

tcflag 

SET FLAG 


TME 

RCODE 



BLJ 

RSRW6 

READ record 


TDK 

TCFLAG 



TMA 

0,K 



BNN 

SR30 

EXIT IF binary mode 


BSL 

!RWAITP 

WAIT 


TMI 

TRANS, 

RESTORE transport . 


TMK 

RA 



TMA 

SMCATOT,! 

PICK UP TAPE OPTIONS WORD 


LLA 

7 



BON 

SRIO 



TMI 

WC 

PICK UP WORD COUNT 


BLJ 

SS.CEA 

CONVERT ASCII Jo EBCD V 3 


BUG 

SR20 

EXIT 

SRIO 

TMI 

WC 

PICK UP WORD COUNT 


BLJ 

TS.C8A 

CONVERT ASCII To BCD V 3 ( 

SR20 

TMA* 

FCBP 



BOP 

* + 3 



NSA 




Tam* 

FCBP 

RESET BUFFER BUSY BIT 

SR30 

TMJ 

RA 



T?A 

• 

SET (C) = e 


BUG 

0, J 


* 


WRITE END OP FILE 

. 

UEQF 

TOE 

FOFCODE 

WRITE EOF CODE 


BUG 

RSRW15 

60 WRITE EOF 






ERASE 3.5 * N IN, 

ERASE 

TMA 

we 


BON 

MCST02 


NAA 



TAM 

FRASEF 


TOE 

ERACODF 


BUC 

RSRW15 

« 


OPEN FILE 

OPEN 

T2A 



TAM 

ERRCNT, I 


BUC 

FXIT 



CLOSE FILE 

CLOSE 

TMA^ 

FCBP 


DMA 

=•01407777 


TAM* 

FCBP 


TZM 

FOTFLAG 


THE 

FRRCNT, I 


BO? 

CLOSE2 


RLD 

3 


RLA 

5 


RLD 

3 


RLA 

5 


RLD 

3 



5 


aPA 

= ’1'4030060 


TME 

=•10052060 


die 



TAI 



TMJ 

= •10051105 


TMK 

=•10047516 


TMA 

RB 


BSL 

SOCMSGE 

CL0SE2 

TMK 

CW 


BUC 

SCLOSEF 



REPOSITION file 

RPF 

TMA 

CFA # I 


BO? 

RPFEOF 

RPFCFA 

TAM 

ORA 


BUC 

SCRA 

RPPEOF 

TFM 

RPFLAG 



BACKSPACE FILE 

BSP 

TIA 



BSL 

ISW 


OBB 

R6 


BN? 

FX I 


TOE 

RSFTODE 


TFM 

DFLAG 


BUC 

RSRW15 

» 


ADVANCE FILE 

ADP 

TOE 

ADFCODE 


BUC 

RSRW15 



• 



BACKSPACE RECORD 

BSR 

TOE 

RSRCODF ■ • ' ’ 


TFM 

DFLAG 


OF tape 

PICK UP WORB COUNT 
ILLEGAL FUNCTION CODE 

SET ERASE ELAG 
ERASE CODE 
ACTIVATE FUNCTION 


SET ERROR OOUnT TO ?ERO 
EXIT 

PICK UP FtRST WORD 
SAVE BITS 
RESTORE WORD 
CLEAR EOT ELAG 
PICK UP ERROR COUNT 

CONVERT TKBEE OCTAL DIGIts TO ASCII 


OR IN TRANSPORT- NO. FROM (I) 
SET IN (I) 


SET blanks IN U) 

OUTPUT message 

RESTORE TEMP POINTER TO K 


PICK UP CURRENT FILE COUNT 
REPOSITION records UNTIL CRA=CFA 
SET TO DESTRED RECORD ADDRESS 
SET CRA BY SUCCESSIVE BACKSPACING 


SET TRANSPORT No, IN (A) 
I NPUT STATUS WOrD 
QUERY BIT ^ 

DEVICE I A LOAD POIN 
8ACKSPACX P>LE CODE T 
SET REVERSE FLAG 
ACTIVATE FUNCTION 

ADVANCE FILE CUnE 
GO WRITE EQF 


BACKSPACE ' BECOHn 'CODE 
SET REVERSE FLAG 






BUC 

RSRW15 

« 


ADVANCE RECORD 

ADR 

TOE 

ADRCODE 


BUC 

BSRW15 

ft 


REWIND • 

REW 

TOA 

REWCODE 


TEN 

SMCABF 


TEMft 

FOF(I) 


TEMft 

CFA( I ) 


TEM* 

CRA( I ) 


BUC 

BSRW20 

ft 


SET CURRENT RECORD 

SCRa 

TOA 

*20 


TAM 

FC 

SEEK 

tma 

ORA 


Bma 

CRA,I 


BON 

RSR 


Bop 

ADR 


BUC 

0, J 

scpa 

TMA 

CRA, I 


TAM 

CFA> I 

EXIT 

TOC 

eg 


BUC* 

RA 

ft 


INPUT HARDWARE STAT 

ISW 

•itftft 

•- ■ . 


LLA 

3 


OOB 

6 


bcw 

MGACU 


BNE 

*-l 


ISW 

MCACU 


Bne 

*-l 


BUC* 

ISW 

ft 


INTERRUPT PROCESSOR 

Rcai 

ft ft 



TRM 

TPREG 


BEM 

SMCABF 


Boe 

IPFXIT 


TMI 

TRANS, 


ISW 

MCACU 


Bne 

*-!• 


TAM 

HSW 


dbb 

R7 


BNE 

IPEXIT 


OBB 

R2 


Bne 

TROUBLE 

HCAI JB 

tma 

HSW 


OBB 

R4 


BOE 

* + 2 


TFM 

ROTFLAG 


AUM 

FRASEF 


BOP 

* + 4 


TOA 

FRACODE • 


BLJ 

RSRWia , 


BUC 

IPEXIT 


TEM 

retryf 

• 

BNN 

ft + 4 


ACTIVATE FklNCTlON 

ADVANCE record CODE 
ACTIVATE rbNCTlON 

REWINF CODE 
CLEAR BUSY FI,aG 
SET EOF =0 
SET CFA=0 
SET CRA=0 

activate function 

ADDRESS 

SET SC TO SEEK 

DROP INTO SEEK LOGIC 

COMPARE desired ADDRESS 


cra<dra, advance record 


SET RETURN C 22 ERO 


WITH CURRENT ADD 


POSITIOLN transport NO. 

OR disable Bits 

BUSY return 

BUSY RETURN 

EXIT-(A) CONTAINS STATUS 

ENTER VIA interrupted EXECUTED BSl 
SAVE ALL registers 
WAS DEVICE BUSY? 

( I ) = TRANSPQRT No, 


SAVE hardware STATUS 


TROUBLE 

YES 

END OF TAPji? 

NO 

SET EOT flag 
SKIP ERASE 

(A) CONTAINS erase CODE 
EXECUTE ERASE 
EXIT . 

EERO RETRY FLAG 

SKIP IF RETRY FLAG NOT SET 





TME 

GW 



BLJ 

RSRW12 

RESTART READ/WRJTE 


BUC 

iPEXIT 

EXIT 

« 


BUILD HANDLER 

STATUS WORD 


TMA 

FC 

PICK UP FUNGTIQn CODE 


T2E 


NO 


eOB 

5 

IS IT READ^MRITe 


BON 

«- + 2 



BUG 

MCAIIO 



TMK 

wc 

WORD COUNT 


TMA 

HSW 

. ,( A )=HARDWARE STaTUS 


BNN 

MCAIIO 

ABC IS NOT BUS^ 


ABC 

NOT complete 



] AW 

MCACU 



SMA 

RA 



TAK 


SET difference IN (K) 


TOA 

6 

.'DISABLE Pf AND CLEAR 


OCW* 

MCACU 



TME 

= B22. 

• SET BIT 22 FOR WC NOT 

MCAIIO 

TMA 

HSW 

, RESTORE HARDWARE STATU 


OBB 

R6 

LOAD POINT? 


BNZ 

MGAI20 

YES, ZERO pointers 


OBB 

R5 

EOF? 


B02 

MCAI30 

NO-UPDATE SRA ONLY 


T2M 

RPFLAG 

WAS THIS AN RPK 


Bnn 

MCAI12 

NO 


T2M 

HFLAG 

2ER0 DIRECTION FLAG 


TOE 

ADFCODE 

ADVANCE OVER EOF 


BLJ 

RSRW15 



BUG 

IPEXIT 

EXIT 

MCAI12 

AME 

= 821 

SET EOF STATUS BIT 


TMA 

DFLAG 

UPDATE EOF 


Aam 

FOF,I 



BUG 

MCA I 21 


MCAI20 

T2E 


2ER0 STATUS 


T2M* 

FOF( I ) 


MCAI21 

T2M* 

CFA( I ) 

HERO CFA 


T2M* 

CRA( I ) 

HERO CRA 

HCAI22 

TMI 

FCBP . 



TMA 

0,1 



Bnn 


SKIP IF NOT busy 


NSA 

' 

/ SET TO NOT BUSY 


bEA 




TAM 

0,1 



TKM 

1, I 

STORE WORD COUNT 


BUG 

MCAI31 


HCAI30 

TMA 

DFLAG 

ADD OR subtract 1 FROM 


Aam 

GRA,I 



BUG 

MCAI22 


MCAI51 

TMA 

FC 

TEST FUNCTtOLN CODE. 


GOB 

* 20 

SEEK IN PROGRESS 


BN2 

# 3 



BLJ 

SEEK 

YES, CONTINUE SpBK 


BUG 

TPEXIT 

EXIT FROM tNTEKRUPT 

MCAI139 

NOP 


• 

MCAI136 

NOP 



EOREXIT 

TZM 

SMCABF 

CLEAR BUSY FUAU 




TRIGGER dispatcher (REF SYSDAT)- ■ 


THE 

T2A 

TD4 

IPEXIT TMR 
T2M 
BRL* 

« 

TROUBLE TOA 
OCW* 
AOM 
DAC 
AUM 
BON 

» IF SS4 DO 



OSS 

BN2 


TMA 


LLA 


BON 

TMA 

BUC 

retry 

TOA 

RETRY3 

BLJ 

TMA 

TME» 

RETRYIO 

NSE 

DAE 

TEM* 

BUC 

TMA 

RETRY30 

LLA 

BON 

TMA 

AOA 

B02 

TFM 

TFM 

« 

EOTFLAG 

TOA 

BLJ 

BUC 

222 

EOTMAD 

*02 

EOTMSG 

DATA 

Bflag 

data 

222 

ICFLA6 

222 

RETRYF 

222 

ERASEF 

222 

RPFLA6 

222 

DFLAG 

DATA 

retry. 

DATA 

TRANS. 

data 

RA 

222 

ftC 

222 

BA 

222 


!KDISINT 


T PREG 
TCFLAG 
MCAI 
ERRORS 
6 

MCACU 

1 

FRRCNT. I 
RETRY. 
RETRYIO 
NOT RETURN S 
B4 

MGAIJB 
CW ' 

15 

RETRY 

= *04030000 
RETRY3 
RSRCODE 
RSRW18 
=*04020000 
FC8P 


FCPP 

EOREXIT 

CW 

15 

RETRY30 

retry.. 

1 

RETRY30 

ERASER 

RETRYF 

RSRCODE 

RSRW18 

IPEXIT 

0 

EOTMSG 
•26054130 
’ 26054130 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


RROR STATUS 

. ' JUST 


RESTORE registers 
CLEAR FLAG FOR WATT 
EXIT 


.INCREMENT ERROR COUNT 

INCREMENT RETRY COUNTER 
try AGAIN 


IGNORE TRCUBL 

•‘TF’ B8 = 1‘; read tRROR ^ ' 

IF B8 = 0, WRITE 'fRROR =■ -■■■• 

READ ERROR ^ BACKSPACE RECORD-EXIT' ' 
WRITE ERR08 
GO MERGE AND EXiT 
BACKSPACE BECOKD 

READ ERROR 
STATUS WR08 
RESET SIGN 


ERROR EXIT 
READ OR WRITE? 

B 8 = 1, READ/ R^ = {^i WRITE 
READ 


IF 2ER0> 1ST try 
SET ERASE FLAG 
SET RETRY ELAG 


EXIT 

END OF TAPE FLAG 


BINARY mode flag 
SYMBOLIC read F|.AG 
RETRY FLAG 
Erase flag 

REPOSITION flag 


return ADDRESS 

WORD COUNT 
BASE ADDRESS 




FC 

22Z 

0 

IPREG 

BLOK 

5 

Rb 

DATA 

' 10020040 

DRA 

EQIV 

WG 

PIL 

Bata 

R13 

PCBP 

data 

0 

HSW 

data 

0 

cw 

data 

n 

RCODE 

data 

M0000503 

WCODE 

DATA 

• 60000103 

EOFCODE 

FOI V 

' 203 

^RACODE 

EOIV 

’ 303 

ERRCNT 

rdat 

8( 0 ) 

ADPCODE 

EO I V 

’ 703 

Gspcode 

EQIV 

■1303 

REWCODE 

FQIV 

'402 

ADRCODF 

EOI V 

*603 

BSRCODE 

EOIV 

■1203 

ABFLAG 

EOI V 

ra 

2C 

EOIV 

■4 

CFA( I ) 

BAC 

CFA, I 

CFA 

rdat 

8(0) 

CRA( I ) 

Bag 

CRA, I 

CRA 

RDAT 

8(0) 

EOP( I ) 

dac 

EOF, I 

EOF 

RDAT 

8(0) 

ME$SX 

DATA 

■21247524 

SFTLEMA 

DATA 

ENDS 

'10052060 

ESTAB,5, 

MT.O. 

1.0,4 


EXIT 

^EOJ 


FUNCTION' CQDE 


FCB pointer 

DARDWARE STATUS WORD 

COMMAND WORD 

READ 

WRITE 


EERO condition BIT 

CURRENT FIll'E AUdRESS TABLE 

CURRENT RECORD ADDRESS TABLE 
POINTER EOF TAHlE 
EOF NUMBER TABLE 



;J0B PRNMES 
^ASSIGN, 6, 0 
‘REW.5 

lINCLUDE CSF 
^^rORTRA 

DIMENSIOI^ MES(8) ' 

DIMENSION M0UT(24^ 

DATA MFS/6HPRNMES/ 

CALL lO(MES) 

ENCODE (72,222,M0UT )MES(1) ,MES(2) 
2^2 FORMAK ’LPR FIN’,2I6) 

IF(MES(2) .GT.DCALL TO(MOUT) 

CALL EXIT 
■ ENDS 
iCATALOG 
'YPE=FG 
iAME=PRNHES 
?EGIN 
*E0J 



S5JDB SYSO 
^A$SIGN>7, 7,6,0 
S^ASSIGW 5 LR 
^REW,5 

^OPTIONS 0 23 

sassemble 



I DEN 

SYSQ 


XDEF 

SYSO, SYSO 


XDEF 

CONE, COUE 


liCDEF 

COMM, COMM 

WATT 

EOIV 

'6 

SFUNC 

EOIV 

•7 

PROGS 

EQI V 

’ll 

disint 

EOIV 

’ 200 

Bsiz 

EOIV 

300 

KEYl 

DAC 

’ 77767 

KEY2 

dac 

•77770 

KEY3 

DAC 

■ 77771 

QW 

DATA 

0 

SYSQ 

TJM 

RETAD 


* DONT start up anything NEW If FILE LOCK WORDS ABE SET 
e2M* KEYl 
PON SYSRET 
C2M» KEY2 
BON SYSRET 
C2M* KEY3 
BON SYSRET 
TOI OUE 
SYSLOP TMD 0,1 
CZE 

BO? SYSRET 
TIM TEMP 
Blu SFUNC ' 

Bata p 

CME =-i 
BOZ INIT 

tmi temp 

AOI 10 
BUC SYSLOP' 

INIT TMI TEMP 
TMD 0,1 
TDM PNAME 
TOA 127 
TAM PRI 
TMA PNAME 
A AV 
SNZ 1+2 
AUM PRI 
TMD PNAME 
TMI PRI 
BLU FROGS 
DATA 1 
TMI TEMP 
AO I 10 

SYSRET TMJ RETAD 
BUC 0,J 

NAV data *23440526 





pname 

petad 

■PRl 

TEMP 

OUE 

P 

OWAIT 


COUE 


COMM 

GOMLOP 


NXT 


DONE 


DATA 

■t * * 

0,0 

* * » 


DATA 

n 

DLOK 

RSIH 

DATA 

0 

RXI 


BSL 

liREAL* 

TFM 

QW 

TLO 

QW 

DSL 

?;WAITP 

DSL 
HX I 

•TDEALRS 

TMI 

P 

TOA 
51 A 

RSIH • 

B02 

OWAIT 

BON 

OWA I T 

TMD 

0,K 

TDM 

OUE, I 

AOK 

2 

AOI 

2 

TMD 

0 , K 

TDM 

QUE. I 

AOK 

2 

AOI 

2 

TMD 

0,K 

TDM 

OUE, I 

AOK 

2 

AOI 

2 

TMD 

0,K 

TDM 

OUE, I 

AOK 

2 

AOI 

2 

TMD 

n , K 

TDM 

OUE, I 

AOK 

2 

AOI 

2 

TIM 

P 

TOA 

0 

TAM 

RXI 

OUE, I 

BUG 

0, J 

TOI 

OUE 

TMD 

0,J 

CME 

0, I 

Dnh 

NXT 

CMA 

1, I 

BOH 

HIT 

TOA 

0 

GMA 

0, I 

ROH 

DONE 

AOI 

10 

Bug 

GOMLOP 

TMA 

= -l 

BUG 

2, J 

AOI 

2 


HIT 



POP10 


THRU 


TMD 

0,1 

TDM 

0, K 

AOI 

? 

AOK 

2 

TMD 

0,1 

TDM 

0,K 

AOI 

2 

AOK 

2 

TMD 

0, I 

TDM 

0, K 

AOI 

2 

AOK 

2 

TMD 

0, I 

TDM 

0,K 

AOI 

2 

AOK 

TIK 

2 

SOI 

1.0 

TMA 

UIl 

niSINT 

TMD 

n,K 

TDM 

0, I 

E2E 


BO? 

thru - 

AOI 

2 

AOK 

2 

'TMD 

0,K 

TDM 

0, I 

AOI 

2 

AOK 

2 

TMD 

0, K 

TDM 

0,1 

AOI 

2 

AOK 

2 

TMD 

0,K 

TDM 

n, I 

AOI 

2 

AOK 

2 

TMD 

0,K 

TDM 

0, I 

AOI 

2 

AOK 

2 

BUG 

POPIO 

TMA 

P 

SOA 

10 

TAM 

p 

T2M 

ow 

TMA 

UEl 

niSINT 

BUG 

ENDS 

2, J 


SriLEMA 

ESTAB»5iSYSQ»O*1.0# 4 

EXIT 

leo ' 



SJOB PRINT 


^ASSIGN, 

6,0 


S^OPTION 

SREW,5 

23 


sassemb 




IDEN 

C 



C,C 

C . 

GAP 

1 . 

* 

TJM 

TIK 

RET 


BLU 

’26 


Buc* 

RET 

fiET 

Im-* 


START 

BLL 

SMAIN 


BUC 

*-l 

SFORTRA 

ENDS 

START 


subroutine main 

dimension I ( 330 ) » J( 112) /K( 135 ) (.45) 

DIMENSION MES(IO) 

DATA MPS/6HPRNMES/ 

LINE=0 
NCT = 0 

CALL I01(2*64-k»7) 

1 CALL C(J) . ' . 

NCT=NCT+1 

CALL CRACK( 330 , J( 3) ; I ) 

N = 0 

2 DO 10 JA=l>135 

16 K(JA)='40 

3 M = 0 

4 M=M+1 

5 . N=N+1 

IF( I (N) J-T. MO )GOTO 9 

(n) t t V . 

GOTO 4 

9 IF( I (N> .EQ.OGOTO 99 

IC=I (N) 

DO 90 JA = 1, IC 
K(M) = M0 
96 M=M+1 

GOTO 5 

99 CALL PACK(135,K,L1 

CALL 10(2*64+2, 45;l^ 

CALL 101(2*64) 

line=ltnf+i 
IF(I(N+1).NE,0)GOTO 2 
1F(J(2) ,FQ.O)GOTO 1 
CALL I01(2*64+'10) 

MES(3)=LINE 
MES(4)=NCT 
CALL SO(MES) 

RETURN 

ENDS 

IINCLUDE STAGE 
^INCLUDE 10 
^INCLUDE CSF 

cr A T A I no 



type=fg 

NAfHE^PRIMT 
ASSIGN 2=1 
^^EGIN 
55EOJ 



SJOB PRl 


^OPT I ON 

23 


^ASSIGN 

6 0 


55ASSIGN 

Si!REW,5 

,5,LR 


^ASSEMBLER 

IDEN 

^:def 

y^DEF 

PRINTER STAGEING ROUTINE 

PRl, PRl 

PR6,PRG 

KEY 

data 

0 

EOD 

Data 

0 

B 

BLOK 

110 

E 

BLOK 

135 

Buff 

Blok 

45 

COMP 

RDAT 

330(0) 

N 

•JUMt 


M 

Data 

0 

Blank 

data 

♦10020040 

ADDR 



RET 

*** 


Red 



COUNT 



ksave 

A 

fr ** 


w 

PRl 

CZA 



I30N RESET 
602 5:CSRTM, 

TAM REO 
eOB '10 
60Z CLOSE 
eOB ’2 

BNZ OUT 
TJM RET 
TMK 3,K 
TMA 1, K 
TAM COUNT 
TMA ?,K 
TAM ADDR 
TMA 0, I 
BOP * + 3 
DMA =«3777777X 
TAM 0,1 
TMA REO 
COB '2 
BOZ WRITE 
OUT TMA »200 

UEl 

eSL SDEALRS 
TOC M 
Due 0,J 
WRITE TMA *200 

UEl 

TNK 45 
TMA BLANK 
LI TAM RUFF+^5,K 

BWK 1.1 
TMA COUNT 




12 


Back 


L5 


FLUSH 


NOCLOS 


UMA 

II 

r 

Hnp 

* + ? . 

TOA 

45 

NAK 

TOI 

0 

TMJ 

ADDR 

TMA 

0, J 

TAM 

RUFF# I 

AOJ 

1 

AOI 

1 

feWK 

L2 

HLL 

.TCRACK 

HAC 

= 135 

DAC 

RUFF 

DAC 

E 

BLL 

?;SQUISH 

DAC 

E 

DAC 

N 

TMA 

N 

AMA 

M 

cma 

= 328 

BOP 

FLUSH 

TMK 

M 

TAM 

M 

TMI 

N 

NI I 
TOJ 

0 

TMA 

F, J 

TAM 

COMP#K 

AOJ 

1 

AOK 

1 

Bwi 

L5 

Buc 

OUT 

TLO 

KEY 

BSL 

TWAITP 

TMK 

M 

TOP 

0 

TEM 

COMP#K 

T2M 

M 

BLL 

S;PACK 

DAC 

= 330 

DAC 

COMP 

DAC 

R 

TMA 

REO 

COB 

'10 

BU7. 

NOCLOS 

TPM 

'FOD - 

TFM 

KEY 

TMK 

KSAVE 

BUC 

5?GL0SEF 

TZM 

FOD 

TFM 

KEY 

THM 

•77777 

TME 

•200 

TZA 

TD4 

BUC 

RACK 



CLOSP TMA 

0,1 

DMA 

=•0140777 

TAM 

0. I 

TMA 

•200 

UEl 

TKM 

KSAVE 

BUC 

FLUSH 

Reset t?m 

iRPRlF. 

TMA 

SPDCTW2, I 

BNN 

» + 3 

NSA 

TAM 

SPDCTW2, I 

Due 

0, J 

« 

PRG TLO 

KEY 

BUG 

0, J 

% 

- 

SrtLEMA end 


ESTAB,5,PRl,n 

,1,0,4 


^XfT 




SJOB 0PC0M2 


^ASSIGN 

6 0 


S^OPTION 

23 


$REW,5 



^INCLUDE 

LTV 


S^ASSEMB 




XDEF 

TVIR^T' 

GP 

DAC 

*77722 

GL 

lnn» 


SAVE 

RDAT 

5(0) 

TViR 

4** 



TRM 

SAVE 


TMA* 

CP 


RLA 

12 


TAM 

CL 


BLL 

sltv 


DAC 

CL 


TAM 

CL 


TMA* 

CP 


DMA 

= *7777 


LLA 

10 


DMA 

CL 


TAE 



TMA 

= *1040 


bcw 

•lO'l 


Dnz 



TEA 



ODW 

*101 


BNZ 

*-l 


TMR 

save 


BRL^^ 

ENDS 

TVIR 

lASSEMB 




IDEM 

CALLER 


XDFF 

caller 

PRI 



PROG 

4** , 


CALLER 

GAP 

1 


TMD 

0,1 


TDM 

PROG 


BAP 

1 


TJM 

RET 


TMI 

0, I 


TIM 

PRI 


&LU 

TSFUNC 


Data 

2 


TNA 

SAE 

1 


feNZ 

DONE 


TMD 

PROG 


TMI 

PRI 


Dlu 

TFROGS 


data 

1 

Gone 

Due* 

RET 

ret 

4 *« 





END 

■ ^ 



IDfiN 

RUMP 



)J(DEF 

RUMP, BUMP 



KDB.F 

RUMP2,BUMR2 ... 

* 

6UMP2 

GAP 

1 



TMA 

0,1 



AOA 

1-- 



GMA 

= 499 



Bnz 

RET 



TOA 

101 



BUG 

RET 


feUMP 

GAP 

1 



TMA 

0,1 



5(^OA 

1 



CMA 

= 100 



&N2 

RET 



TOA 

0 


RET 

TAM 

0,1 



BUG 

0, J 



END 




IDEN 

COMMUNICATIONS DRIVER POR 

VARIOUS asynchronous BUFFERED TASKS 

ny 

data 

•25052131 



DATA 

•10020040 


TTVP 

data 

ao 


PRINT 

BATA 

•24051111 



data 

•23452040 


PRINTP 

Bata 

101 


CNTRL 

Data 

•20647124 



Data 

•24446040 


fHES 




UNO 

EOI V 

24 


IP 

DATA 

•0217 


IRN 

data 

0 . ' 



data 

0 


OP 

DATA 

•0217 = 


0 N 

DA A 

0 


R 

DATA 

0 


IPK 

Bata 

• 0202 



Data 

24 



dac 

IB 


OPK 

data 

•0201 



DATA 

24 



Dac 

OB 

- 

IBP 

data 

0 -1 IMP INPUT buffer 

FULL 

IDLE 

EQI V 

•77777 


GOT 

DATA 

..... ...... 

.. — _ 

IB 

BLOK 

I.NG 


obp 

DATA 

-1 -1 IMP OUTPUT 

BUFFER EMPTY 


Data 

•10020040 


OB 

BLOK 

I.NG 


TTYS 

data 

•0102 

/ /O 


data 

24 

( /O ( ) 


DAC 

OB-1 


asrplg 

DAC 

'1062 


PIP 

DATA 

•0217 




101 

m 

PIRN 

data 

0 


POP 

DATA 

•0217 




PORN 

t)ATA 

101 


DATA 

0 

PIPK 

Data 

' 0202 


data 

112 

PIBLOC 



POPK 

data 

•0201 


Data 

112 


DAC 

POB 

POB 

Blok 

112 

POBE 

data 

-1 

GnT 

data 

90 

pCNj 

data 

390 

intrtn 

TMA 

IDLE 


BOP 

INTEX 


T2M 

IDLE 


TME 

•200 


T2A 



JDA 


INTEX 

BUC 

0, J 




ftAfTL 

C2M 

GOT 


BN? 

ACTIV 


C2M 

IDLE 


BNN 

ACTIV 

* iOO millisecond WAI 

(CALL 

TO INTERVAL T 


TLO 

INTRTN 


TOI 

100 


BLU 

•30 


TLO 

IDLE 

* WAIT 

TILL 

activity i 


Blu 

SWAIT 

« CALL 

TO SYSQ 

ACTIV 

BLU 

•34 


T2M 

GOT 

* INVOKE TTY 

IF CALLE 

TESTTY 

TMA 

IDLE 


KOB 

•212 


BNH 

TWSC 


BLL 

SCALLER 


DAC 

TTY 


DAC 

TTYP 


T2M 

IDLE 

TWSC 

C2M 

IDLE 


B02 

PINCK 


BON 

PINCK 


TMA 

IDLE 


TAM 

MES 


TLO 

CNTRL 


BLU 

•36 


AUM 

GOT 

PINCK 

TLO 

PIB 


TFM 

IDLE 


BLU 

*27 


TKM 

PIBLOC 


TMA 

0,K 


NET available TTY MESSAGES 


IMER MULTIPlEXOR) 


OR TfMEOUT resets IDLE FLAG 


FOR 




* DONT 


fe02 PNOI 
PUT RPCORD IN 


QU6 IF IT IS FULL 


PNDI 


INCK 


INPUT 


TMA 
$OA 
BON 
TAM 

TLO 

BLU 

TLO 

BLU 

TNK 

BLU 

T2M* 

BLL 

OAC 

AUM 

eZM 

BOZ 

TMA 

SMA 

B02 

TLO 

BLU 

TLO 

BLU 

TNK ■ 

BLU 

BLL 

OAC 

T2M 

AUM 

CHM 

B02 

BUFFFR 


PONT 

1 

PNOI 

PONT 

PIP 
%l/0 
PIPK 
TI/O 
♦ 0200 
3;i/o 
PIBLOC 
^BUMP2 
PIRN . 

GOT 

POBE 

INCK 

PIRN 

PORN 

INCK 

POP 

TI/0 

POPK 

Ti/b 

•0200 

51/0 

5BUMP2 

PORN 

POPE 

GOT 

IGF 

NOl 

IS FILL 


EMPTY IT 


TLO 

IP 

BLU 

51/0 

TLO 

TPK 

BLU 

51/0 

TNK 

•0200 

BLU 

51/0 

IRN=MOn( TRN +1 

BLL 

5BUMP 

DAC 

IRN 

THM 

IBF 

AUM 

GOT 


100 ) 


« WAIT 
NO! 

* WAIT 


« FILL 


IF OUTPUT BUFFER IS FULL 
eZM OBE 
B02 CALTTO 

IF BUFFFR IS empty BUT NO RECORDS WAITING TO GO OUT 


TMA 

SMA 

B02 

OUTPUT 

TLO 

BLU 

TLO 

BLU 


IRN 

ORN 

WAITL 

BUFFER 

OP 

51/0 

OPK 

51/0 






TNK '0200 
BLU $1/0 
BLL $BUMP 
DAC ORN 

T2M • OBE '• “•* - ■ 

CAL'TTO TMA* ASRFU6 
BON WAITL 
TLO TTYB 
BLU $1/0 
TFM OBE 
AUM CNT 
BUG WAITL 

» CODE LINKED RY BLU FROM PROGRAMS WHICH WILL 
PILLP TJA 

TKE ' 

POBE 

BNN *+3 

TLO POBE 

BLU TWAIT 

HXI 

TAJ 

TEK 

TMA '200 

UIl 

RXI 

AUM PCNT 
TNI 1.1? 

PLOOP TMA POB+112,1 
TAM 0,K 
AOK 1 
BWI PLOOP 
T2M IDLE 
TFM POBE ' 

BUG RET 
BILLI TJA 
TKE 

* WAIT IF TOO Many records in OUF 

G2M CNT 
BNN 

TLO CNT 
BLU TWAIT 

* WAIT IF BUFFER ALREADY PULL 

G2M IBF 
BNN *4-3 
TLO IBF 
BLU SWA IT 

* FORBID DISPATCHER 

HXI 

TAJ 

TEK 

TMA *200 

UIl 

RXI 

TMA CNT 
SOA 1 
AM CN 


FILL' 



INPUT 


buffer 



TFM IBX 
T2M IDLE 

COPY USERS OUTPUT TO IB' 

TNI LN6 
iloop TMA 0,K 

TAM IB+LNG,I 
5VOK 1 
BWI ILOOP 

BUG RET . ' 

» ENABLE DISINT AND GO SACK 
RET TMA '200 

1 

XVE '200 

T2A 

TD4 . - - 

BUG 0,J 

* PLUG LINKAGES INT 8LU AREA AND DO FILE OPEN 
START TMA INSTl 

TAM^^ L37 

TMA INST3 

TAM* L26 

TNK '0107 

BLU SI/0 

TNK *0207 

BLU SI/0 

WIT 

TOT 100 

RCT 

BLL SCALLER 
Dag PRINT 

BAG PRINTP 

MAIN TMA INST 

TAM* INTRPT 

Tma LAVEL 

tIAl 
UEl 

BUG WAITL 

LAVEL Data B17 

INTRPT Dag '111 

1N$T BSL STVIR 

INSTl BUL FILLI 

1NST3 BUL FILLP 

L37 DAC '37 

L33 DAC *33 

126 DAG '26 

ENDS START 

SCATALOG 
TYPE=RFG,PRIV 
NaME=OPCOM, 2 
ASSIGN i=l>2=OPMES 
BE 

GIN 





SjOB HIO 


55AGSIGN 

,6,0 


^ASSIGN 

,5,LR 


SREW,5 

Sassems 

IDEN 

HIO 


JCDEF 

HIO, HIO 

Calling sequence cu 

loew 

DCW 

»00 

lODW 

ODW 

’ 00 

HID 

GAP 

1 


TMA 

0, I 


DMA 

lOCW 


TAM 

PLUGl 


TMA 

n, I 


DMA 

lODW 


TAM 

PLUG2 


GAP 

t 


WXI 



TMA 

0, I 


« NEGATIVE CW IMP DONIT SEND 



BON 

# + 3 

PLUGl 




BN2 

*-l 


GAP 

1 


TMA 

0,1 

PLUG2 




BNZ 


... 

RXI 


SFILEMA 

BUG 

Ends 

0, J 

ESTAB,5, 

HIO,0 

,1,0, 


EXIT 

$EOJ 





SKjOB AGE 
^'ASSIGN 5 LR 
S^REW,5 
SaSSIGN,6,0 
SrORTRAN 

SU6ROUTINE AGE(N) 
COMMON/SYSCOM/NDAI (100) 
DO 1 J=1.8 
K=J+82 

1 NDAT (K ) =NDAT(K ) +1 
K = ^^2 + N 
NDAT(K)=0 
RETURN 
ENDS 
SFfLEMA 

ESTAB,5/AGE,0,1.,0,4 

Fxn 

SEOJ ; . 



SJOB GETBAM 
^ASSIGN, 6. 0 
SASSIGM 5 LR 
SREW,5 

Sfortra 

SUBROUTINE GETGAM ( I D , I T # BET A , BOOT ) 
DIMENSION J{560) 
dimension MER(24) 

COMMON/SYSCOM/NDAT ( 100 ) 

DATA MFR/30HN0 GAMMA SHIFTS AVAILABLE 
DATA NSECT/-1/ 

NSEC = 5<jM0D( id, 100) 

IF(NSEC *FQ . NSECT )GOTO 90 

IF(NDAT (92) ,LT. 0)eALL W A I T ( ND A T ( 92 ) ) 

NDAT(92)=-1 

GALL 0PN(9) 

CALL SCRA(9,NSEC) 

CALL RFAnW(9.560, J) 

CALL CI.0S(9) 

NDAT(92)=0 
90 NSECT=NSFC 
BETA=0V 
BD0T=0V 
IHIT=0 

DO 1 JA=1,560,7 

IF( J( JA) .NE. ID)GOTO 1 

KIND=J( JA+6)/4096 

IF(K1NP.NE.14)G0TQ 1 

IHIT=IHIT+1 

IF( I HIT . GT . 1 )GO TO eO 

^ETA = J( JA4-2) 

BD0T = J( JA + 3 ) 

80 IF( J( JA+1 ) .GT« IT)G0 TO 1 
BETA=J(JA+2) 

BD0T=J(JA+3) 

1 CONTINUE 

IFHHIT.FO.OICALL TO(MER) 

EtETA = eFTA/100 . 

BDOT = BnOT/100 . 

RETURN 

ENDS 

SFILEMA 

ESTaB^5,GETGAM, 0,1, 0, 4 

EXIT 

5E0J 



$JOB TVSj^T 
5 ;assign,6>o 
SASSIGN,5,LR 
5REW,5 

Sort I ON $> ' 

SrORTRAN 

SUBROUTINE TVSATC IT5-ILT, I ET , I L , I E , I T , I D ) 
C INPUTS 

C IF -- frame NUMBER 

C ILT -- TV CURSOR LINE 

C lET -- TV CURSOR ELEMENT 

C 

C OUTPUTS 

C IL -- SSCC LINE 

e IE SSCC ELEMENT 

e IT -- FRAME START TIME 

C 

G Ml IS REEL DEF 

C REEL 

C YYDDD 

C HHMMSS 

e LS 

G ES 

e M2 IS FRAME DEF 

C FRAME 

C REEL 

e REC ST 

C ELE ST 

e tvl 

e TVE 

c mao 

e 

DIMENSION M1(14),M2(14) 

DIMENSION N£Rl<24nNER2{24) 

COMMON /S YSC OM/ NDAT ( 10 0 ) 

DATA NFR1/30HFRAME NON-EXIST 
DATA NFR2/30HTAPE NON-EXIST 
CALL L00K(3, IF,M2) 

IF(M2(1) .EO, 0 .OR . M2( 2) . EO . 0)GO TO 800 
GALL LOOK (2>M2 ( 2) ;m1 ) 

IF(MKl) .EQ.0.OR.MK2) .EQ.O)GO TO 900 
C VYDDD 

ID=M1 (2) 

G HHMMSS 

IT=M1(3) 

C LINE 

IL=ILT-M2(5) 

IL = 2»II 
ISI2=M2(7) 

LINST = M1 ( 4 ) 

LINSTrl. IN$T^-M2( 3) -l 
MAG = 1 

IF( JSI7.it. 116)MAG=3 
IF(ISI?.I T.56)MAG=6 
IFnSI?.GT.115)MAG = l 

• il=il/mag+linst 



rj o C3 


C ELEM(VTT=M1C5)-1+M2(4) 

IE=IET-M?(6) 

IEi6*IF 

IE=IE/MAR+IEST 

RETURN 

800 call Tn(NeRl) - - — 

GOTO 1000 

900 CALL T0(NER2) 

1000 IL=0 
IE = 0 
IT = 0 
IDiO 
RETURN 
END 

SUBROUTINE LOOK ( LUN; KE MES ) 

LOOKUP AND SAVE 

LUN=2 == REELS 
LUN=3 == FRAMES 
DIMENSION MES( 14 ) ;m< 300 ) , U 0C(3) 
COMMON/SYSCOM/NDAT( 100 ) 

DATA U OC/O , 94 , 93/ 

DATA N/0/ 

1F(NDATC=^4) .NeVO)N = 0 
IF(N.EO.n)G0 TO 100 
DO 1 J=1,N,15 
IF (M( J+1) .NE»KFY)GO TO 1 
IF(M( J) ,NE.LUN)GO TO 1 
GO TO 200 
1 CONTINUE 
100 IF(N»EQ.300)N=0 

M(N-»-1)=LUN 

IF(LUnVnE.2.AND.LUN.NE.3)ST0P tvsat 

I=iLOC(LUN) 

IF(NDAT(I).LT.0)CALL WAIT(NDAT(I)) 
NDAT(I)=-1 

CALL L00KUP(LUN,KEY;M(N+2) ) 

NDAT( I )=0 
J = N + 1 
N=N+15 

200 DO 201 1=1,14 
J = U + 1 

201 MES(I)=M(J) 

RETURN 

ENDS 

Sfilema 

ESTAB,5,TVSAT,0,1,0,4 

EXIT 

5E0J 



SJOB LOOKUP 

^assign 6 0 

S^OPTIONS 8 23 

IRASSIGN 5 LR - . . ' 

SREW,5 

^FORTRAN 

SUBROUTINE LOOKUP ( LUN , KEY , MUNG ) 
e FOR looking up an ENTRY IN FRAMES OR REELS ^ 

DIMENSION MUNG(14) 

COMMON/LOKP/NSECi MUN, JSEC( il2) ' 

CALL OPN(LUN) 

CALL RPW(LUN) 

NSEC=-1 

MUN=LUN 

c Number of entries in pile 

N=UARY(1>-1 

c distance form start of filf to first data entry 

IOFF=JARY(2) 
do 1 J=lrl4 

1 MUN6(J)=0 
DO 2 J=10,N 

IF( JARY( J) .EO.KEYKO TO 3 

2 CONTINUE 
GO TO 100 

3 ISEC=inFF+J/8 
IREL=1+14»M0D( J» 81 
CALL SCRA(LUN, ISEC) 

CALL RFADW(LUN, 112, JSEC) 

LST=IRFL^“13 

JA = 0 

DO 4 J=IREL,LST 
JA=JA+1 

4 MUNG( JA)=JSEC( J) 

leo CALL CI.0S(LUN> 

return 

END 

FUNCTION JARY(J) 

e FUNCTION JARY (J) IS THE JTH ENTRY IN THE FILE tNDE^ 
C PERFORMS in IF NECESSARY 

COMMON /LOKP/NSFC,MUN, JSEC ( 112) 

MSEC=( J-l)/112 

MWOR=MOD( J-l»ll2)fi 

IF(NSEC.FQ«MSEC)GQ to 1 
NSEC=MSEC 

CALL SCRA(MUN,MSEC) 

GALL RFADW(MUN, 112, JSEC) 

1 JARY=JSEC(MW0R> 

return 

ENDS 

SFTLEMA 

ESTAR,5iLOOKUP,0,1»0,4' 

exit 

J5EOJ 



SSJOB VERS 
SrEW,5 
^INCLUDE 10 
^INCLUDE no 
S^ASSIGN 6 0 

SfDrtran 

DIMENSION J(112) 

DATA J/112*0/ 

1 rORMAT(10A3) 

READ(7,1) ( J(L) ,L=1,10) 
CALL 0PN(2) . 

CALL SCRA(2,0) 
gall WRITW(2,il2, J) 
GALL Cl 0S(2) 

GALL EVIT 
ENDS 
SFfLEMA 
EXIT 

SASSIGN 2=VERS 
SCATGO 

MCi’DAS VERS S2.10H1.00 
SeOJ 



SjOB tty 

S ASSIGN 6,0 

$REW,5 • 

include, CSF 
SINCLUDE, stage 
S lNCLUDE, 10 
^FORTRAN 

subroutine quits 

COMMON/SYSCOM/NDATdOO) 

CALL EXIT 

RETURN 

END 

SUBROUTINE SQUASH( IS, ID) 
Dlf^ENSION IS(24) , ID<8) ‘ 

- CALL PACK<24, IS, ID) 

RETURN 

END 

SUBROUTINE make(i;m;n,l) 

DIMENSION M(24 ) 

DATA M1N/»55/ 

DATA inOM/*40/ 

N=a 
L = 8 

ISGN=1 

1 IF( I .GT.60 )G0 TO 100 

IF(M( I ) ,FQ.mIN)GO TO 900 
IF(M( I ) .FQ. ICOM)GQ TO 100 
KK=M( I >-48 

IF(KK.IT.O.OR.KK.GT^9)L=1 
N = 10^fN + KK 
I = H1 
60 TO 1 

160 1 = 1+1 ' - 
N=NttISGN 
161 RETURN 
900 1=1+1 

IF(N.NP.0)L=1 
ISGN=-1 
QO TO 1 
END 

DIMENSION NE5(24) 
dimension LIS(500) 

DIMENSION MES(27) ;m(60) 
DIMENSION NERN(2) 
dimension NER(2) 

COMMON /SYSCOM/NCOM ( 100 ) 

DATA NF5/30HMUST LOGGIN FIRST 
DATA NFR/6HERR0R / 

DATA NFRN/6HCRAP: / 

DATA ISTAR/3H***/ 

DATA IC0M/3H,,,/ 

DATA IPLK/'40/ 

CALL CRACKd, ISTAR, f STAR ) 

CALL CRACK(1,IC0M,IG0M) 

111 CALL ini(64«l+'7) 

CALL 10(64*1+1, 27;MES) 



CALL ir>l(64«l) 

CALL ini(64*l+'10) 

CALL crack(60,mes;m^ 

CALL ini(64#2+*7) 

CALL 10(64^^2-*'* 17, 0, 6 ) 

CALL in(64^»2 + l, 300,LIS ) 

CALL 101(64^^2+ ' 10^ 

K0 = 0 

DO 20 J = l,300,3. 

lF(MES(l),NE.LlS(jnGO TO 20 
KO = J 

M1=LIS(J+1) 

M2=LIS(J+2) 

20 CONTINUE 

IF(KO)302,302,301 
361 CONTINUE 

C FORCES LOGGIN PROCEDURE 

IF(NCOM(l),EO,O.AND.KO.NE.j)CALL T0(NE5) 
IF(NC0M(1) ,EQ.0.ANDvK0.NE.1>CALL QUITS 
IF(M(3) .FQ. ISTAR)GO TO 100 
IF(M(3) ,FQ» IBLK) GO TO 20Q 
300 CONTINUE 

MES<1)=NFR(1) 

MES< 2) =NFR( 2) 

303 CONTINUE 

GALL S0UASH(M,MES(3f) 

CALL TO(MES). 

CALL QUITS 
302 CALL OC(MES) 

CALL QUITS 
100 MES(l)-Ml 
MES(2)=M2 

CALL SOUASH(M(4 ) ,MES(3) ) . 

CALL SO(MES) 

GALL QUITS 
200 MES(1>=M1 

MES(2)=M2 
1=2 

DO 201 J=3,10 

CALL MAKF(I,M(3),N,L) 

IF(L.NF,0)GO TO 300 
261 MES(J)=N 

CALL SD(MES) 

. CALL QUITS 
ENDS 


Sassemb 

XDEF 

OG, OC 

OC 

GAP 

1 


TJM 

RET 


TIK 



BLU 

•25 


BUC# 

RET 

ret 

■fr*# 



ENDS 



SCATALOG 

TYPE=FQ 

Name=tty 

Assign. i = i,2=namlis 

NOMAP 

BEGIN 

?FOJ . . . 



i^JOB NR2L 

$ASSIGN,5,LR 

SASSIGN,6,0 

SREW,5 

^FORTRAN 

subroutine nr?dec ( L i NE i L » I FRROR ) 

DIMENSION L INE ( 2) ; I i'B (96 > ,1 ( 28 ) 

IbIn) M I R^N)*"^" ' I look/- 10, 75,100,85/ 

LASBIT=0 

IERROR=0 - ' 

G KLUDGE TO TRY TO GET MORE DECODES 
e CANT USF MORE THAN LINE AND TIME THEN 
IL00K=72 
DO 2 1=1, ILOOK 
I2 = 2«^I 
Il=:I2-j 
N=LINE(I1) 

M=LINE(I2) 

NN = 1 
MM = 1 

JF(N.LT J EVELT)NNiO 
IE(M .LT J.EVELT )MMiQ , 
IF(N,GT.I,EVELB.AND.N,LT.LEVELT)NN = MM 
IF (M ♦ GT .LEVELS . AND . M . LT .LEVEL T )MM = NN 

if(mm.fq.nn)go to 1 

IERR0R=1 

RETURN 

1 J = i 

■ I F^LASRI T . EO . MM ) J = 0 ' ' - 

IIB(I)=J 

LASBIT=MM 

2 ■ CONT I NUE 


= 2<^IR(35 + KS) + IB( 36 + KS ) 

= 8*IR(37 + KS)+^^fiP(38 + KS)+2*lB(39 + KS) + lB(40 + KS) 

-8<^IR(41 + KS)+4«fR(42 + KS) + 2*IB(43 + KS)+lB{-^4 + Kc^) 

= 8»IR(45 + KS)+4*IR(46 + KS)+2#IR(47'^KS> + IR(^8 + Ks) 

= 2#IR(51 + KS) + IB(52-*-KS) 

= 8« IR(53-^KS) +4^^IB(54 + KS ) ■►2*16(55 + KS) + IB(56 + KS) 

= 4*IR(58 + KS)^2*fB(59-»-KS)-.-IB(60 + KS) 

= 8*^R(61 + KS)+4*^R(62 + KS)•^2*IB(63 + KS>-►IRi64 + Ks) 

= 4»IR(66 + KS)+2«}R(67-»-kS) + IB(68 + KS) 

) = 8*IB(69 + KS)+4*iB(70-KKS)+2<^lR(71 + KS>+lB(72tKS4 
> = ^ * T B ( 25 + K S ) 2 * I B ( 2 6 + K S ) + I B ( 2 7 + K S ) 

I = R*IB(75 + KS)'i'IB(76 + KS) 

>=4*IB(28 + KS)+2*IB(29^KS)^I8(30 + KS) ^ + I B ( 85 + KS ) 

>=?*T8(77+kS)+IB(78+KS) 

' = 4*IB(31 + KS)+2MB(32 + KS)M8(33 + KS> + l u t vu + KS ) 

•=2*IB(79+KS)+I0(8O+KS) 

= IB(15 + KS) Oy / ■ 

= IB(16 + KS> 

=TB(17+KS) / ( 


f 



L(24)=4♦!B(18 + KS)+2^^IB(19 + KS)■^IB(20 + KS) 

L(25)=P*IB( 21+KS) +4*IB( 22+KS) +2*1 B(23+KS) +IB(24+KS) 
L( 26) = IB( 73+KS ) 

L(27)=TB(74+KS) 

L(28)=1B(65+KS) 

RETURN 

5ND 

SUBR0UTI5E N92L ( L i'NE , J T I ME ) 

DIMENSION J(100),K(300),L{?8) 

CALL -FAnW( 2, 100, J) . 

CALL CRACK(300, J,K> 

CALL NR2HEC(K,L. IE) 

8 

LlNE = inOO*L(l )+100*L'(2)+10*L(3 )+L (4 ) 

8 

90 1TIME=10*ITIME+L( JJ^ 

RETURN 
1 LINE=0 
ITIME=0 
RETURN 
ENDS 
SFILEMA 

ESTAB/9 /NR2L ,0 >1,0 .4 

EXIT 

SEOJ 



ANDM 


«JOB ZL 

5A$SIGN,6>0 
^ASSIGN 2=LANDMA 
^INCLUDE no 
SINCLUDE 10 

sfOrtra 

DIMENSION JDIR(56Q) 
DATA jnlR/560#0/ 

CALL QPN(2> 

N=e 

DO 1 J=lilOO 
CALL SrRA(2,N) 

CALL WRITW< 2» 560, JDIR) 
1 N=N+5 

CALL EXIT 

ENDS \ ■ 

SCATGO 

seoj 



SJOB KLUDGE 
^ASSIGN 60 
^REW,5 
^FORTRAN 

SUBROUTINE DOITCLUN^ 
DIMENSION JC112) 

CALL OPN(LUN) 

CALL Rt=W(LUN) 

GALL RFAnW(LUN, 112,U) 
J(2)=10 

CALL SCRA(LUN,0) 

CALL WRITW(LUN,112,U) 
CALL CLOS(LUN) 

RETURN 

END 

DO 10 K=?,3 
ID GALL DOIT(K) 

CALL EVIT 

ENDS - 

SINCLUDE 10 

SINCLUDE FIO 

ASSIGN 2=REELS.3=FRAMES 

SCATGO 

SASSIGN 6,1 

SEOJ 



•$JOB FRAMES 
5;OPTIONS 0 8 23 
5 RE W » 5 
SaSSIGM 6,0 
^INCLUDE 10 
SINCLUDE FIO 
^INCLUDE CSF 
^FORTRAN 

DIMENSION J(1120) 

DO 10 K=l,1120 
le J(K)=0 
1 =10 

T-Llll 0PN(2) 

2) 

CAIL l!l-IIIIHW(2,1120; JO 
call CI0S(2) 

CALL EXIT 
ENDS 

SASSIGN 2 FRAMES 

SCATGO 

Seoj 



$job reels 

^OPTIONS 0 8 23 
$REW,5 
IBASSIGN 6,0 
SINCLUDE 10 
^INCLUDE no 
SINCLUDE CSF 
^FORTRAN 

DIMENSION J(1120) 
DO 10 K=l,1120 
18 J(K)=0 

J(l)=in 
GALL 0PN(2) 

CALL RPW(2) 

CALL WRITW( 2, 1120; 
CAUL CI 0S(2) 

CALL EXIT 
ENDS 

SaSSIGN 2 REELS 
SCATGO 

..SEOJ 




SJOB SETkEY 
J^ASSIGN,6,0 
S?REW,5 

^include CSF 
^FORTRAN 


DIMENSrOW MES(IO) 

GOMMON/SYSCOM/NDATdnO) 

data MFS/6HSETKEY/: 
gall IQ(MES) 


KE Y=MES ( 1 ) 
KSTAT=meS(2) 


IF (KSTAT . NE . 1 . AND? 

if(key.lt.o.or;kfy 

N = 1 


kstat.ne,o)call abort 

•GT.22)CALL abort 


IF<KEY'gT.0)N=2**KEY 
M=d7777777.X0R,N 
NDU<9‘5) = NDAT(95)VAND.M 

N=NttKSTAT 

^95 )=NDAT (95) ;or. n 

ENDS 

Sscatalog 
type=fg 
►IAME = SETKEY 
&EG I N 

Seoj 




SJOB DPROJ 
^ASSIGN 6 0 
^INCLUDE no 
^INCLUDE 10 
SSFORTRAN 

DIMENSION N(112) 

DATA N/112«0/ 

CALL 0PN(2) 

CALL SCRA(2,0) 

1 = 6 

1 FORMAT( 15, IX. 08) 

16 RE?^D(7.1) II, 12 

IF( I1.FQ.9999)G0 lO 100 
1 = 1+1 

J = ^^KI-1) +1 

N(U) =11 
N(U+1)= 12 
GO TO 10 

190 CALL WRITW( 2, 112, N) 

CALL EXIT 
ENDS 

^ASSIGN 2 PROJS 
SCATGO 

1000 00600002 
1210 00000002 
1220 00000002 
1230 00000002 
1250 00000002 
1500 00000002 
1510 00000000 
1520 00000002 
1600 00000002 
1610 00000002 
1620 00000002 
1630 00000002 
1640 00000002 
1800 00000002 
1900 00600002 
3710 00000002 
4439 00000002 
5600 00000002 
00 00000002 
6ir00 00000002 
6900 00000002 
6999 40000000 
9999 00000000 
SEOJ 



^J08 DEFTAP 

s:rei^,5 

^include CSF 
5SINCLUDE Flo 
3SINCLUDE 10 
^assign 6 0 
^include wait 
sfortran 

DIMENSION N AM ( 2 ) 
dimension JDIR(112o^ 

dimension mgs ( 8 ) # JSEC ( 112 ) 

DIMENSION MER(24);nER( 24) 
COMMON /SYSCOM/ I P ( tOQ ) 

DATA MFR/30HNOT AUTHORIZED 
data NFR/30HTAPE REEL FILE 
data NAM/6HDEFTAP/ 

GALL WAIT(IP(94)) 

IP(94)=-1 
CALL 0PN(2) 

199 CALL RFW(2) 

CALL PF ADW ( 2 » 1120 ; JD I R ) 

1 MES ( 1 ) rNAM { 1 ) 

MES ( 2 ) zNAM ( 2 ) 

CALL lO(MES) 

IKEY = IP(95).AND.M0000000 
IF( I KEYING , 0) Go TQ 6999 
CALL CL0S(2) 

IP(94)=0 


TO DT 
FULL 


CALL TO(MER) 

GALL EVIT 

6999 IF(NAMd) .EQ.MES(1)OGO TO 299 
I F ( JDI R ( 1 ) , EO , 00 Q > GO TO 999 
■ KEV=KFIND( JDIR,MES(1) ) 

2 10 + 

CALL #C2P^( , dlKIIIZTfH) 
IST=1+14*M0D(KEY,8) 

LST=IST+7 


DO 99 JAY=IST,LST 
INDX=1+ JA Y- 1ST 
99 JSEC( JAY)=MES( INDX) 

CALL SFRA (2dO + KEY/8 ) 
CALL WR I Tw ( 2, 112, JSEC) 
160 CALL SCRA(2,0) 

CALL WR I TW ( 2 , 1120; JD I R ) 
GO TO 199 
299 CALL Cl OS ( 2 ) 

IP(54)zi 
IP(94)=0 
CALL EXIT 
999 CALL TO(NER) 

GO TO 299 
END 

function KFIND( J,K) * - ■ 

DIMENSION J(1120) . 



IF( J(l) .FQ.10)GO TO 100 

N=J(1)-1 

DO 2 L=10,N 

IF( J(L) .F0.K)G0 to 200 
2 CONTINUE 
100 KFIND=J(1) 

J(kF IND) =K 

J(1)=J(1)+1 

RETURN 

200 KFIND = |' 

RETURN 

ENDS 

ICATALOG 
TYPE=FG 
NAME=DEFTAP 
ASSIGN 2=REEIS 
BEGIN 
„.lgEOj 



^JOB DFR'AME * 

^ASSIGN 6 0 

J^INCLUDE CSF 
^INCLUDE FIO 
^INCLUDE 10 
^INCLUDE WAIT 
^FORTRAN 

dimension NAM(2) 
dimension JDIR(1120^ 

DIMENSION MES(8) , JSEC(112) 
DIMENSION NER(24) ;nERR(24) 

common/syscom/ndat ( ion ) 

DATA NAM/6HDFRAME/ 
data NFRR/30HERROR -- FRAME LOCK 
data NFR/30HFRAME FfLE FUU 
CALL WA IT (NDAT ( 93^ ) 

NDAT(93)=-1 
CALL 0PN(2) 

199 CALL REW(2) 

CALL RFADW(2/1120; JDIR) 

1 MES(1)=NAM(1) 

MES(2)=NAM(2) 

GALL lO(MES) . 

IF(NAM(1) .EO.MESa ) )G0 TO 299 
IF( JDIR(l) .EO.IOOQIGO TO 999 
KEY = KFlNn( JDIR,MES(1) ) 

CALL SCRA (2. lO+KEY/8) 

CALL RFAnW(2,ll2, JSEC) 
IST=l+14*M0D(KEY,a) 

LST=lST+7 
NPiJSEC( ISTfl3) 
e PRIVILEDGEn PROJECT 

IKEY = NnAT(95).AND;MOOOOOOn 
IF ( IKEY.NE.O)GO TO 98 
d UNRESTRICTED FRAME 

IF(NP,FQ, 0 )G0 TO 98 
G PROJECT match 

1F(NP.EQ. IPR0J)G0 TO 98 
CALL TO(NERR) 

GO TO 199 

98 DO 99 JAY=IST,LST 
INDX = l-*-JAY-IST 

99 JSEC( JAY )=MES( INDX) 

CALL SCRA(2»10+KEY/8) 

CALL WRITW(2/112, JSEC) 

100 CALL SrRA(2,0) 

CALL WRITW(2,1120;jDIR) 

GO TO 199 
299 CALL CI.0S(2) 

C SIGNAL SYSTEM CHANGE WORD 
NDAT(54)=i 

C release frame LOCK 
NDAT(93)=0 



CALL EXIT 
999 CALL TD(NER) 

GO TO ?99 
END 

FUNCTION KFIND(J,K) 
DIMENSION J(1120) 
IF(J(i) .FQ,10)GO TO 100 
N=U(1)-1 
DO 2 L=10,N 

IF( J(L) .FQ.K)GO TO 200 
2 CONTINUE 
100 KFIND=J{1) 

J(kFINn)=K 

J(1)=J(1)+1 

return 

200 KF1ND = I 
RETURN 
ENDS 

^CATALOG 

TYPE=FG 

Nahe=dframe 

ASSIGN 2=FRAMES 

Degin 

SEOJ 



$JOB WHATAP 

S5REW,5 

^include CSF 

SINCLUDE 10 

sinclude no 
Sinclude wait 
5ASSIGN/6, 0 
^FORTRAN 

dimension JDIR( 112 0^MES(8) .M0UT(24 ) 
C0MM0N/TLIS/NLIS,NDAY( 1000) 
COMMON/SYSCOM/NDAK 100) 
data MFS/6HWHATAP;: 

NLIS=0 

CALL lO(MES) 

CALL WA IKNDAT (94) ) 

NDAT(94 )=-l 
CALL 0PN(2) 

CALL RPW(2) 

CALL RFAnW(2,ll20; JDIR) 

N=JDIR(1)-1 

NSEC=jniR(2) 

DO 100 J=10,N,80 
CALL SCRA (2, NSEC + J/8 ) 

CALL RFAnW(2.1120; JDIR) 

DO 100 K=l,80 
L=2+(K-1)*14 
100 CALL 0( jniR(L ) ) 

CALL CI 0S(2) 

NDAT(94)=0 

DO 200 J=1,NLIS 

ENCODE (72, 222, MOUT )NDAY(J) 

200 CALL TO(MOUT) 

CALL EYIT 
222 FORMATdlO) 

END - 

SUBROUTINE 0(N) 

COMMON/TLIS/NL IS,NDAY(1000) 

IF (N, EO. 0 )RETURN 
IF(NLIS.NE,0)GO to 1 
NLIS=1 
NDAY(1)=N 

1 DO 2 J=1,NLIS 

IF (NDAY( J) ,EQ.N)RETtJRN 
IF(NDAY( J) .GT»N)G0 to 3 

2 CONTINUE 
NLiS = NI IS + 1 
NDAY(N1.IS)=N 
RETURN 

3 DO 4 K=J,NLIS 
L=NLIS+J-K 

4 NDAY(L^1)=NDAY(L> 

NLiS = NI lS + 1 

NDAY(J)=N 

RETURN 

ENDS 



^CATALOG 

TYPE = FG,f»RlV 

NAME=WHATAP 

ASSIGN 2=REELS 

feEGiN 

SEOJ 

SREW,5 

^INCLUDE no 
iBiNCLUDE 10 
5SINCLUDE CSF 
^ASSIGN 6 0 
{^FORTRAN 

DIMENSION J(112) ,HES(10) 
COMMON/SYSCOM/NDAK 100) 

BATA MFS/6HDVERS f. 

CALL 0PN(2) 

CALL SrRA(2,0) 

GALL RFAnW(2»112, J> 

CALL SnRA(2>0) 

CALL lO(MES) 

DO 1 K=l,8 
1 J(k)=MFS(K) 

IF(NDAT(1) .NE,152Q)GALL ASORT 
GALL WRITW{2*112, J) 

CALL C10S(2) 

CALL EYIT 
ENDS 

^CATALOG 
TYPE=FG 
NAME=DVERS 
ASSIGN 2=VERS 

begin 

$EOJ __ 



SjOB RESPRM 
SaSSIGN 6 0 
$REW,5 

5^INCLUDE CSF 
^INCLUDE FIO 
SINCLUDE 10 
SINCLUDE WAIT 
SFORTRAN 

DIMENSION NAM(2) 

DIMENSION JDIR(1120^ 

DIMENSION MES( a ) , JSEC( 112) 
DIMENSION NERR(24) 

COMMON/S YSCOM/ND AT (100) 

DATA NAM/6HRESFRM/ 

DATA NFRR/30HERROR -- FRAME LOCK 
CALL WAIT(NDAT(931 ) 

NDAT(93)=-1 
CALL 0PN(2) 

199 CALL RFWC2) 

CALL RFAnW(2,1120; JBIR) 

1 MES(1)=NAM(1) 

MES(2)=NAM(2) 

CALL lO(MES) 

IF(NAM(l).EQ.MES(t)‘)GO TO 299 
IKEY=NnAT (95 ) . and; MOOOOOO n 
IF(IKEY.NE.O)GO to 98 
CALL T0( NERR) 

GO TO 199 
98 CONTINUE 
I1=MES(1) 

12=MES(2) 

no 777 JA=Il,f2 
KEV=KFIND{ JDIR, JAl 
CALL SCRA (2, lO+KEY/8 ) 

CALL RFAnW(2,112, JSEC) 

CALL SCRA (2/ lO+KEY/8 ) 

IST = 1 + 14^^M0D(KEY, 8) 

JSEC( IST)=MES(3) 

777 CALL WRITW(2.112, JSEC) 

100 CALL SrRA(2>0) 

CALL WPITW(2>1120;jDIR) 

GO TO 199 
299 CALL CI.0S(2) 

NDAT(93)=0 
GALL EXIT 
END 

FUNCTION KFIND(J,K) 

DIMENSION J(1120) 

IF( J(l) .FQ.10)G0 TO 100 

N=U(1)-1 

DO 2 L=10,N 

IF( J(L) .FQ.K)GO TQ 200 

2 CONTINUE 
100 KFIND=J(1) 

J(kFINn)=K 

J<1)=J(1)-^1 


+ 13 



RETURN 

280 KFIND = I. 
RETURN 
ENDS 

^CATALOG 

TYPE=PG 

name=resfrm 

ASSIGN 2=FRAMES 

BEGIN 

SEOJ 



SJOB LOGDUM 
SREW,5 

^INCLUDE 10 • 

SASSIGN 6 0 
S5INCLUDE FIO 
^INCLUDE CSF 
55FORTRAN 

DIMENSION MES(112),M0UT{24) 

DATA MFS/6HL0GDUM/: 

CALL lO(MES) 

IF(MESd) .NE »987898^CALL EXIT 

CALL 0PNC2) - - 

CALL RFW(2) 

CALL RFAnW(2dl2,HES) 

DO 10 J=l,112;2 
IF(MESU).EQ.O)GO TO 10 
F = MES( J + 1. ) 

F=F/60V 

ENCODE ( 72, 222, MOOT )MFS( J) ,F 
222 FORMAT( ^PROJECT ' , t5i ' , • ,F8V2, ' MINUTES’) 
CALL TQ(MOUT) 

10 CONTINUE 

DO 11 J=l,112 

11 MES(J)=0 

GALL SCRA(2,0) 

CALL WRITW(2,112,MES) 

CALL Cl 0S(2) 

GALL EXIT 
ENDS 

^CATALOG 
TYPE=FG 
NaHE=L0GDUM 
ASSIGN 2=L0G 

Degin 

ilEPJ 



sjob prndut 

SREW,5 
^ASSIGN 6,0 
^include CSF 

^FORTRAN 

DIMENSTOM ME S ( 1 0 ) ; N AM ( 2 ) 

DIMENSION MOUT(24) 

DATA NAM/6HPRN0UT/ 

1 MES(1)=NAM(1) 

ME$(2)=NAM ( 2) 

CALL IQ(MES) 

1 r ( MES ( 1 ), EO . NAM ( t ) ^ CALL EXIT 
J=HES(1 ) 

J = U + 1 

ENCODE (72, 222, MOUI) (MES(K) ,K=2, J) 
CALL TOCMOUT) 

GO TO 1 

222 rORMAT(7I8) 

ENDS 

5fCATALOG 
NAME=PRNOUT ■ 

TYPE=FG 

Degin 

$EOJ 



JbjDb eradir 
5REW,5 

iBiNCLUDE CSF 
^INCL DE 10 
^INCLUDE FIO 
iKASSIGN 6,0 

Sfortra 

DIMENSION MES(lO);j(ll? 
DATA MFS/6HERADI R/ 

DATA J/112*0/ 

CALL lO(MES) 

GALL 0PN(2) 

CALL RFW(2) 

CALL WRI TW(2, 112. U) 

CALL CL0S(2) 

CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAM.E = ERADIR 

ASSIGN 2=DKDTR 

REGIN 

SEOJ 



SjDB NR2DEC 
SASSIGN,6*0 
$REW,5 
^INCLUDE 10 
^INCLUDE no 
^include STAGE 
^INCLUDE CSF 
^INCLUDE NR2i. 

^INCLUDE FTIME 

Sinclube ITIme 

SFORTRA 

FUNCTION IDEC(N) 

DATA I?/’60/ 

NN = N 

NliMOD(N,10) 

■ NN^NN/IO 

N2 = M0n(NN, 10 ) 

NNi^NN/10 
N3iM0D(NN, 10 ) 

N1=N1+I2 

N 2 ^N 2 +T 2 

N3 = N3«hI2 

N2iN2.SHIFT,8 

N3=N3, SHIFT. 16 

IDEC=N1 .0R.N2.0R.N3 

RETURN 

END 

dimension MK24) ,M2(24) 

DIMENSION MES(8) 

COHMON/SYSCOM/ICOMdOO) 

DATA M1/30HTAPE START TIME 

DATA H?/7>0H PERCENT SUCCESSFUL DECODES 

DATA MFS/6HNR2DEC/ 

CALL lO(MES) 

CALL 0PN(2) 

GALL RFW(2) 

IG = 0 
ID = ~1 

LIHIT=MES(1) 

IF(LIMTT.GT.2000)LIHIT=2000 
DO 1 M=l. LIMIT 
IF( ICOM(l) , eO.O)GQTO 222 
CALL NR2L (LINE, ITM) 

IF(LINP.FQ.O)GOTO 1 
lG=IG-d 
Nlb=LlNE+l-M 
IF(ID.RQ.NID)GOTO 1 
ID=NID 

T=FTIMF( ITM) 

X=.6*FI OAT(LINE)/3600. 

T = T“X 

ITI=ITIMF(T) 

M1(5)=IDFC(NID) 

M1(10)=IDEC( ITI ) 

H1(9)=TDFC( ITI/IOOOO 
CALL TO(Ml) 



1 CONTINUE ' 

Y=LIMIT 
X=IG 
X = X/Y 
IX = 100^^X 

M2(1) = TDFC( IX) 

GALL TO(M2) 

222 CALL RFW(2) 

CALL CI.0S(2) 

CALL EXIT 

200 FORMAT! * tract ION OF SUCCESSFUL DECODES = 
ENDS 

SCATALOG 

TYPE=FG 

name=nrzdec 

ASSIGN 2=11 

Degin 

seOj 






SJOB AGOTA-P 
SASSIGN,6#0 
$Rew,5 

^INCLUDE no 

^include 10 
^include csr 

^include NR2I_ 

^include stage 
^include FTIME 

^INCLUDE ITIME 
SiPORTRA 


DIMENSION MES(10);mOUT( 10) 
COMMON/SYSCOM/JCOMdOO) 
data MFS/6HAC0TAP/ 

Data mout/6hdeftap/ 

Data mfr/3ohno successful 
call IO(MES) 

CALL 0PN(2) 

CALL RPW(2) 

DO 1 JridOOO 


. MER (24 ) 


DECODES 


IF(ICOM(1),£0^0)GOTO 
CALL NP2I.(L, IT) 

IF (L . EO . 0 )G0T0 1 
T=FTIMF( IT) 
X=.6«FL0AT(L)/360Q, 

T = T-X 


222 


MOUT (3)=MES(1 ) 
MOUT ( 4 ) =MES ( 2 ) 
H0UT(5)=ITIME(T) 
M0UT(6)=L-J+1 
M0UT(7)=1 


MOUT(8)=0 

M 0 UT( 9 )r 0 

MOUT ( in ) =0 

CALL SQ(MOUT) 

ENG0DE(7?,100,mERTM0UT 

GOTO 2 

1 continue 

2 CALL TQ(MER) 

222 CALL RFW(2) 

CALL CL0S(2) 

CALL EXIT 

100 F0RMAT(2A3,8I7) 

ENDS 

^CATALO 


mme=agotap 
TYPE=FG 
\SSIGN 2^:11 
^EGIN 
‘EOJ 


^JOB STATUS 
^ASSIGN 6,0 
$REW,5 

S INCLUDE CSF 
SFORTRA 

FUNCTION IOCT(N) 

DATA Ml ,M2,M3/»7, 170, '700/ 

DATA I7/3H000/ 

N1=M1 . ANO. N 
N2=M2.AND.N 
N3iM3 . AND , N 
N2=N2.SHIFT ,5 
N3=N3 .SHIFT ,10 
IOCT=I? .0 R,n1,0R.N2v0R ,N3 
.RETURN 
END 

SUBROUTINE MAIN(N) 

DIMENSION N(2) 

DIMENSION MES(IO) 

DATA MFS/6HSTATUS/ 

CALL IQ(MES) 

CALL PRINT(Nd) ) 

M = 1 

1 MMil I (N(17) ,M) 

IF (MM,FQ.0)RETURN 
MMs:MM + 16 

gall PRINT(N(MM) ) 

M = MM 
GO TO 1 
END 

FUNCTION II(N,M) 

> STARTS AT LOC N LOOKING FOR WORD M 

DIMENSION N(2) 

1=1 

10 IF(N( I ) ,E0,M-»-128 )GOTO 100 
IF( I ,GT . 500 )GOTO 101 
1=1 + 8 
GO TO 10 

leo II^I 

RETURN 
101 11=0 
RETURN 
END 

SUBROUTINE PRINT(N) 

DIMENSION N(8) 

DIMENSION MOUT(24) 

DATA IR/3H / 

DATA N2/3H 00/ 

M0UT(1)=N(2) 

M0UT(2)=N(3) 

DO 1 J=3.24 
1 MOUT(J)=IB 

J=N(4)VSHIFT.-18 
J1=J, AND.7 
J2=J.AND.'7Q 
J2= J2.SHIFT ,5 
J=N2,0R, Jl.OR. J2 



M0UT(4)=J 

M0UT(5)=I0CT(N(4)/512) 
M0UT(6)=I0CT(N(4)) 
H0UT(8)=I0CT(N(6)/512) 
M0UT(9)=I0CT(N(6)) 
NNN=N( 7 ) 

M0UT(11 )=I0CT(NNN/512) 
M0UT(1?)=I0CT(NNN) 
M0UT(14 ) = I0CT (N(8) ) 
CALL TQ(MOUT) 

RETURN 

ENDS 

Sassemb 

START BLL SMAIN 
DAC *201 
BLU SEXI 
ENDS START 

SCATALOG 
TYPE=rQ,PRI V 
NAME=STATUS 

Begin 

sedj 



SJOB SETF 
SA$SIGN,6, 0 
SrEW,5 

SiNCLune csF 

Ifortran 

DIMENSION MES(8) 

COMMON /SYSCOM/N DAT (100) 
DATA MPS/6HSETF / 

CALL ID(MES)^ 

J=NDAT(56) .AND, *37770000 
J= J+MES(1 > 

NDAT(5^)=J 
CALL EXIT 
ENDS 

^catalog 

TYPE=FG 

Mame=setf 

BEGIN 

5BE0J 



$JC)B bllM 

SaSSIGN/6* 0 
!f!RBW,5 

^INCLUDE CSr 
^FORTRAN 

DIMENSION MES(6) 

COMMON /SYSCOM/N DAT ( iOO) 

DATA MFS/6HDLIM / 

GALL IO(MES) 

C LOWER LIMIT+4096*LPPER LIMIT 

NDAK57) =MES( 1) '^4 096<fMES(2) 

CALL EYIT 

ENDS 

^CATALOG 

TYPE=FG 

Name=dlim 

Degin 

lEOJ 



$JOB DRATE 
SA$SI6N,6,0 
•S^REW,5 
^INCLUDE CSF 
Sfortra 

DIMENSION MES(8) 

COMMON/ SYSCOM/N DAK 100) 

DATA MFS/6HDRATE / 

CALL lO(MES) 

e ARGUMENT IS NUMBER OF FRMS PER SECOND 

IF(MESd) .GT,30)CALL EXIT 
iF(MESd) ,LE.0)CALL EXIT 
X = MES(1). 

X=l./X 

x=X*iono. 

NDAT(5B)=X 
CALL EXIT 
ENDS 

58CATALOG 

TYPE=FG 

NAME^DRATE 

BEGIN 

SEOJ 



$JOB LOOP 

SASSIGN,6,n 

$RPW,5 

^INCLUDE CSF 
SFORTRA 

DIMENSION MES( 8) >NaH( 2) 
COMMON/S YSCOM/ND AT ( iOO) 
data NAM/6HL00P t 
data MFS/6HL00P / 

CALL lO(MES) 

IF(NDATd) .EQ.OCALL EXIT 

1 ME$(1)=NAM(1) 

MES(2)=NAM( 2) 

CALL IQ(MES) 

IF^MESd) .NE.NAM(1)^CALL EXIT 

if(ndat(1).eo.o)call exit 

CALL SLEEP(NDAT(58)^ 
ITiNDAT(57)/4096 
IB=NDAT ( 57) -4096* IT 
ID = MOD(NnAT ( 56 ) , 4Q96 ) 

L = IT-IR 

IF( ID.FO. IDGOTO 2 
NDAT(56)=NDAT(56)*fl 
GOTO 1 

2 NDAT(56)=NDA-T(56)^L 
GOTO 1 

ENDS 


SASSEMB 




IDEN 

SLEEE 


J:def 

SLEEP. SLEEP 

SLEEP 

GAP 

1 


TJM 

RET 


TMI 

0. I 


TLO 

RTN 


DLU 

*30 


tfm 

K 


TLO 

K 


BLU 

SWAI 


BUC* 

■ RET 

RET 



RTN 

TZM 

K 


TME 

•200 


T2A 



TD4 



BUC 

0. J 

K 




ENDS 



^CATALOG 

TYPE^FG 

Name=loop 

Degin 

$EDJ 

SJOB NAVFRM 
$ASSIGN,6,0 
5REW,5 

^INCLUDE CSF 

sinclude FIO 

SINCLUDE 10 




SINCLUDE LOOKUP 
SIWCLUDE TVSAT 
SINCLUDE WAIT 
SFORTRA 

G Calls naviratiom system tor'Day of current frame 

DIMENSION M I N ( 8 ) > MOUT ( 10 ) 

COMMON/S YSCOM/ND AT ( 100) 
data MTN/6HNAVFRM/ 

DATA M0UT/6HNAVSYS/ 

GALL IO(MIN)" 

IF = NDAT{56).AND. ' 7,7 71 

CALL TVSAT( IF,100;100, I, J, IT, ID) 

K0tlT(3) = TD 
CALL SO(MOUT) 

GALL EXIT 
ENDS 

55CATAL06 

TYPE=FG 

Name=navfrm 

ASSIGN 2=REELS.3=FRAMES 
feEGiN 



■$J0B DEFPNT 
S^ASSIGN>6» 0 

^INCLUDE CSF 
IFORTRA 

DIMENSION MES(8) 

COMMON /SYSCOM/NDAt(i 00) 
DATA MFS/6HDEFPNT/ 

CALL lO(MES) 
NDAT(59)=MES(1) 

NDAT (60 ) =MES( 2 ) 

CALL EYIT 
ENDS 

SCATALOG 

TYPE=FG 

Name=defpnt 

feEGIN 

Jeoj 


IJOB DORHIT 

Shew, 5 
^ASSIGN, 6# 0 
SSINCLUDE csr 
SfOrtra 

DIMENSION MIN(8) #HOUT(10) 
data M1N/6HD0RBIT/ 
data MOUT/6HDLANDM/ 

C ORBITS are encoded AS ’LANDMARKS 
GALL lO(MIN) 

MOUT ( 31 =MIN( 1) 

MOUT(4)=0 

HOUT(55=0 

M0UT(8)=MIN(2) 

M0UT(9)=MIN(3) 

MOUT(10)=12 

M0UT(6I=MIN(4) 

M0UT(7>=MIN(5) 

GALL SQ(MOUT) 

MOUT(10)=13 

M0UT(8)=MIN(6) 

M0UT(9)=MIN(7) 

M0UT<6I=MIN(8) 

MODT(7)=n 
CALL SO(MOUT) 

CALL EVIT 
ENDS 

SCATALOG 

TYPE=F6 

NAME=DORBIT 

BEGIN 

5E0J 


OF type 12 and 13 




SJOB DSRATE 
^ASSIGN, 6# 0 
^^REW,5 

SINCLUDE CSF 
SrORTRA 

DIHENSION MIN(8) ,MOUT(10) 

DATA MIN/6HDSRATE;: 

DATA M0UT/6HDLANDM/ 

e tPlH RATE IS ENCODED AS ’LANDMARK* OF KIND 11 
CALL ID(MIN) , 

M0UT(3)=MIN(1) 

M0UT(4)=0 
MOUT (5) =0 
M0UT(6)=0 
M0UT(7)=0 
M0UT(8>=MIN(2) 

M0UT(9)=0 
MOUT(in)=ll 
CALL SO(MOUT) 

GALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

Name=dsrate 

feEGIN 

JEOJ 




5J0B DLANDM 
IKASSIGN 6 0 
SREW,5 

^INCLUDE CSF 
^INCLUDE 10 
iSlNCLUDE FIO 
^INCLUDE WAIT 

Sfortra 

SUBROUTINE SRT(J) 

DIMENSION J(560) 

DO 1 K=l»560,7 
DO 1 L=K,560,7 
JL=J(L+1) 

JK=J(K+1) 

IF(JL.FO.O) JL=24OtO0 

IF(JK.FO.O) JK=240100 

IF( JK J,E. JDGOTO t 

DO 2 M=l,7 

MK=M-1^K 

ML=M-1+L 

LTEM=J(MK) 

J(HK)=J(ML) 

J(HL)=LTFM 
2 CONTINUE 

1 CONTINUE 

RETURN 
END 

dimension NAM(2) 

DIMENSION MES(8) 

DIMENSION JDIR(560) 

DIMENSION NER3(24'),NER9(24) 

COMMON /SYSCOM/ND AT ( 100 ) 

C DEFINES landmarks AND OTHER PICTURE RELATED DATA 
e INPUT IS SYYDDD HHMMSS KEY Pl.P2»P3,P4> KIND 

c Only one entry of unique syyddd hhmmss kind 

C FOR EXAMPLF. FOR LANDMARKS ... 

C INPUT IS syyddd, hhmmss; KEY, SATLIN, SATELE, LAT, l^ON 
DATA NFR9/40HP ICTURE INFO FILE UPDATE REJEClED 

DATA NAM/6HDLANDM/- ‘ 

DATA NFR3/40HNO ROOM IN PICTURE DATA FILE 
199 MES(1)=NAM(1) 

MES(2)=NAM<2) 

CALL IO(MES) 

IF(MES ( 1) . EO.NAM (1) ^ GO TO 299 
1F(MES(1) .EQ.OICALL ABORT 
I KEY=NDAT (95 ). AND. ' 40000000 
IF(IKEY.NE.0)G0 to 191 
CALL T0(NER9) 

CALL EVIT 
191 CONTINUE 
ID = MES(1 ) 

IT=MES(2) 

IK=MES(3) 

1L=MES(4) 

IE=MES(5) 

ILAT=MFS(6) 




ILON = MFS ( 7 > 

' KIND=MFS(8) 

CALL WA I T(MdAT(92) ) 

NDAT(9^)=-1 

CALL 0PNC4) 

MSLC=5*MnD ( ID, 100) 

CALL SnRA(^,MSEC) 

GALL RPADW(4,560, JDiR) 

DO 11 K=l,560,7 
IF( JDIR(K) .NE. ID)GOTO 11 
IF(JDIR(K+1),NF.IT)G0T0 11 
KAV= JDIR(K+6 )/4096 

IF(KAyVnF . K IND)G0T0 11 

GOTO 50 
li CONTINUE 

DO 10 K=l, 560, 7 
IF(JDIR(K),EQ.O)GOTO 50 
18 CONTINUE 

CALL TO(NER3) 

CALL Cl 0S(4) 

NDAT( 9P) =0 
CALL EXIT 
e SYYDDD 
50 JD'IR(K) = ID 
K = k + 1 
G HHMMSS 

68 JDIR(K) =!T — 

K=K + 1 

e L'AT 

IF(ILAT.NE*0)JD!R(K)=ILAT 
IF(KINn,GT,9)JDIR<K)=ILAT 
K=K + 1 

C LONG 

IF ( JLOM.NE.O)JDIR(K)=ILON 
IFUIND.GT, 9) JDIR(K) = IL0N 
K = k + 1 

C LINE 

IF(IL.NE.O)JDIR(K)=fL 
IF (KINn.GT.9) JDIR(K)=IL 
K = K + 1 

IF(IE.NE.0)JDIR(K)=fE 
IF(KINn.GT.9)JDJR(K)=IF 
K = k + 1 

JDi R (K ) = I K+4096»K IND 
C 

CALL SRT(JDIR) 

CALL SCRA(4,MSEC) 

CALL WRITW(4,560, JDIR) 

CALL CI.0S(4) 

NDAT(92)=0 
GO TO 199 
299 CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

name=dlandm 

JiSSlGN 4 = LANDMA 

DEGIN 

i^EOj 


$JOB FINDTP 

^assign 6>0 
^include 10 

55INCLUDE FIO 

^include CSF 

S5INCLUDE WAIT 
^FORTRAN 

DIMENSION JDIR(1120^ ,MFS(8) ,M0UT(24 ) 
DIMENSION NaM(2) 
dimension MTY(24) 

G0MM0N/SYSC0M/NDAT< 100 ) 
data NAM/6HFINDTP/ 

DATA M0UT/6HLISTAP/ 

DATA MTY/30HN0 TARE REELS 
CALL WAIT(NDAT ( 94) ) 

NDAT(94)=-1 
GALL 0PN(2) 

199 MES(1)=NAM(1) 

ME$(2)=NAM(2) 

CALL lO(MES) 

1F<MES(1) .EO.NAMI t))GO TO 299 
CALL RPW(2) 

KN = 0 

GALL RFAOW(2»1120; JDIR) 

N=UDIR(1)-1 

IF(MES(1).EO.O)GO TO 299 
DO 100 J=10,N,80 
CALL SnRA(2,10+J/S) 

GALL REAnW(2,1120; JDIR) 

DO 100 K=l,80 
L=1+(K"1)*14 

IF( JDIRd +1) .NE.MES(l) >G0 TO 100 
M0UT(3)=JDIR(L) 

DO 90 1=4, 10 
90 M0UT(L)=0 

KN^KN + 1, 

GALL SO(MOUT) 

IGO CONTINUE 

IFCKN.PQ. 0>CALL TO(MTY) 

GO TO 199 
299 CALL CI0S(2) 

NDAT (94 ) =0 
CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NAME=FINDTP 

ASSIGN 2=REEl S 

BEGIN 

JREOJ 



feJOB LISTAP 
5RHW,5 
^ASSIGN 6,0 
^INCLUDE LOOKUP 
$IMCLUDE,F I 0 

SINCLUDE 10 ' ■ - 

SINCLUDE CSF 
^INCLUDE WAIT 
S^FORTRAN 

dimension MES(8)#M0UT(24) ,NAM(2) , JSEC(14 ) 
■ COMMON/SYSCOM/NDAT ( iOO ) 

DATA NAM/6HLISTAP/ 

1 MES(1)=NAM(1) 

MES(2)=NAM(2) 

GALL lO(MES) 

IF(MESd) .EQ.NAM(1)^CALL EXIT 
DO 10 J=1.8 ‘ 

IF(MES( J) .EQ. 0)GO TO 10 
IF(NDAT(94).LT.0)GALL WAIT(NDAT(94)) 
NDAT(94)=-1 

CALL L00KUP(2,MES( JSEC) 

NDAT(94)=0 

IF ( JSEOd ) . EO. 0 )GQ TO 9 

ENCODE (72, 222, M OUT) ( JSEC ( K ) , K = 1 , 5 ) 

2^2 FORMAT ( d* ,217 , is; 2 16) 

CALL TO(MOUT) 

GO TO 10 

9 ENC0DE(72,333,M0UT)MES( J) 

333 FORMAT(«NO TAPE’,f7) 

CALL TO(MOUT) 

10 CONTINUE 
GO TO 1 
ENDS 

IBCATALOG 

TYPE=FG 

Nahe=listap 

ASSIGN 2 = REEt.S 

begin 






$JOB riNPRM 

^assign 6 0 

5REW,5 

^include csf 
^include 10 
^include no 
^include wait 
sfortran 

subroutine LT(NJ) 

DIMENSION MES(IO) 

DATA MFS/6HLISTAP/ 

MES(3)=N 
DO 1 J=4,10 
1 MES(J)=0 

CALL SD(MES) 

return 

END 

subroutine LF(N) 

DIMENSION MES(IO) 
data MFS/6HLFRAME/ 

MES(3)=N 
DO 1 J=4,10 
1 MES(J)::0 

CALL SO(MES) 

return 

END 

DIMENSION IFRAME(200) 

DIMENSION JOIR( ll20n ITAPE(IOO) , I OUT ( 100 ) 
DIMENSION M6R1(24^ 

DIMENSION MES(IO) 

COMMON/SYSCOM/NDATdOO ) 

DATA NT/0/ 

DATA MFR1/30HN0 FRAMES 
DATA NF/0/ 

DATA MFS/6HFINFRM/, 

GALL WAIT(NDAT(94) ) 

NDAT(94)=-1 
GALL 0PN(2) 

CALL RFW(2) 

GALL RFAnW(2,1120; JDIR) 

NTJRPE = JDIR(1)-1 
CALL IQ(MES) 

DO 100 j=io,ntape;s0 

CALL SCRA (2, 10+J/Q ) 

CALL RFAnw(2dl20;jDlR) 

DO 100 K=l,80 
L=1+(k-1)*14 

IF(JDIR(I. + 1) .NE.MES(l) )G0 TO 100 
NT=NT+l 

1TAPE(mT)=JDIR (L ) 

IOUT(NT)=0 
100 CONTINUE 

CALL CI.0S(2) 

NDAT(94)=0 

CALL WA I T (NDAT ( 93) ) 

ND'AT(93)=-1 



CALL 0PN(3) 

CALL RFW(3) 

CALL RFAnW(3,1120; JDIR) 

NFRAME= jniR( 1 ) -1 
DO 200 J=10, NFRAME, 80 
CALL SCRA ( 3, lO+J/8 ) 

GALL RFAnW(3,1120; JDIR) 

DO 200 K=l,80 
L = 1 + ( K - 1 ) * 1 4 
DO 201 1=1. NT 

IF(ITAPE(I)«EQ.JDtR<L+l))GO TO 202 
281 CONTINUE 
GO TO 200 
202 NF = NF + 1 . 

IFRAME(NF)=JDIR(l1 

e IF( I OUT( 1 ) .EQ. 0 )CALL LTHTAPFU)) 
IOUT( I )=1 
260 CONTINUE 

CALL Cl 0S(3) 

NDAT(93) =0 

IF (NF.FQ.O)GO TO 400 
DO 300 J=1,NF 
300 CALL LF( IFRAME( J)) 

CALL EXIT 
400 CALL TO(MERI) 

CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NAHE=FINFRM 

ASSIGN 2 = REEI.S.3 = FRAMES 

DEGIN 

feEOJ 



SjOB SAVeOK 
SKASSIGN/ 0 
SREW,5 

sinclude csf 

^INCLUDE FIO 
^BINCLUDE 10 
S5F0RTRAN 

DIMENSION J(2240) 
DIMENSION MES(8) 


■ ■ ■ DATA 

MFS/6HSAVEDK/:' ” 

CALL 

lO(MES) 

CALL 

OPN( 2) 

CALL 

0PN(3 ) 

CALL 

OPN (4 ) 

CALL 

RFW(2) 

CALL 

RFW(3) - 

CALL 

RFW( 4 ) 

CALL 

RFAnW(3,112> J) 

CALL 

CL0S(3) 

CALL 

WRITW(2.112, J) 

DO 1 

N = 1 » 400 

CALL 

RFADW(4,2240;j^ 

1 CALL 

WRITW(2,2240; 

CALL 

RFW(2) 

CALL 

RFW( 4 ) 

CALL 

CL0S(2) 

CALL 

Cl 0S(4 ) 

CALL 

EXIT 

ENDS 


il^CATALOG 


TYPE=FG 


Name=savedk 


ASSIGN 2=11 

, 3=DKDIR/ 4=DK 


Begin 

SEOJ 


/i^ 



^job restdk 
5RaSSIGN,6,0 
SSREW, 5 

^include FIO 

iKlNCLUDE CSF 
^INCLUDE 10 
SFORTRA 

DIMENSION J(2240) 
dimension MES(8),EK(10) 
data LK/6HLISDIR/ 

DATA MFS/6HRESTDK/ 

CALL 0PN(2) 

GALL RPW(2) 

GALL 0PN(3) 

GALL RPW(3) 

GALL 0PN(4) 

CALL RFW(4) 

GALL ID(MES) 

CALL RFADW( 2 / 112 , J) 

CALL WRITW(3. 112> J) 

CALL RPW(3) 

CALL CL0S(3) 

GALL SO(LK) 

DO 1 N=l, 400 
CALL RFADW( 2, 2240; 

1 GALL WPITW(4,2240; 

GALL RPW(2) 

CALL RPW(4) 

CALL CL0S(2) 

CALL C.I 0S(4) 

CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAME=RESTDK 

assign 2=ll,3=nKDIR>4=DK 

BEGIN 

SEOJ 




$jdb delmrk 

SASSIGN 6 0 
$REW>5 

SIMCLUDE WAIT 
^FORTRAN 

dimension MES(8)> JDfR(560) 

DIMENSION MER(24) 

COMMON /SYSCOM/ND AT ( 1 no ) 

DATA MFR/30HUNAUTHORIZED El 
DATA MFS/6HDELMRK/: 

CALL IO(MES) 

IF(MES(1) .EQ . 0 )CAL*L ABORT 
CALL WAIT(NDAT(92) ) 
NDAT(92)=-1 
CALL 0PN(2) 

IKEY = NDAT( 95) . ANDV MOOOOOOO 
IF(IKEY,NE.O)GO TQ 6999 
CALL TO(MER) 

CALL CL0S(2) 

NDAT(92)=0 
CALL EXIT 

6999 MSEC = 5<fM0D(MES( 1) > 100) 

. CALL SCRA(2,MSEC) 

CALL RFAnW(2i560, JDiR) 

DO 1 J = 1,560W 
1F( JDIR( J) . NE.MES( iMGOTO 1 
IF( JDIR( J+1 ) .NE,MGS<2) )GOTO 
KIND=JniR( J+6)/4096 
IF( MES( 3) . NE . K IND) GOTO 1 
JDIR( J)=0 
1 CONTINUE 

CALL SCRA(2,MSEC) 

CALL WRITW(2,560, JDtR) 

GALL Cl 0S( 2) 

NDAT(9?)=0 
CALL EYIT 
ENDS 

SiNCLUDE CSF 
SiNCLUDE 10 
SINCLUDE FIO 
SCATALOG 
TYPE=FG 

name=delmrk 

ASSIGN 2=LANDMA 

degin 

SEOJ 


* # * 



$JOB WCELL 

sa$sign,^,o ' 

S.REW,5 

S^INCLUDE CSF 
^INCLUDE FIO 
^INCLUDE 10 
^FORTRAN 

DIMENSTOM J ( 560 ) > MES ( 8 ) / MOUT ( 24 ) 
COMMON/SYSCOM/MDATdOO) 

DATA MFS/6HWCELL f. 

CALL IQ(MES) 

IF(NDAT(92),LT.0)eAL'L WAIT(NDAT(92)) 

NDAT(92)=-1 

CALL 0PN(2) 

CALL RPW(2) 

MB = 0 
MNiO 

DO 1 M=l»100 - 
CALL REAHW (2» 560, J) 

MM = 0 

DO 2 LI. = 1 ,560, 7 

IF ( J(Ll. ) . EO. 0 )GOTQ 2 

= - - * 

2 GONTIMUE 

IF(MM.LT.MB)GOTO t 

MB = MM 

MN=M-1 

1 CONTINUE 

CALL CL0S(2) 

NDAT(92)=0 

ENCODE (72, 333, MOUDMN, mb 
333 FORMAT ( ’ CELL ’ , I 3, ! HAS’iH,' ENTRIES’) 

CALL TO(MOUT) 

CALL EXIT 
ENDS 

JBINCLUDE WAIT 

^CATALOG 

TYPE=FG 

name=wcell 

ASSIGN 2=LANDMA 

Begin 

!BE0J 

//5 



SJOB EDAY 

5^ASSI6N..6, 0 
SREW,5 

^include fio 

^SINCLUDE CSF 
^INCLUDE WAIT 
iSiNCLUDE 10 

^fortran 

DIMENSION MES ( 8 ) j J ( 560 ) » MER ( 2^ ) 

COMMON/S YSCOM/ND AT ( 100) 

DATA MFS/6HEDAY / 

DATA MFR/30HPR I V I L'EDGED FUNCTION REFUSED 
GALL IQ(MES) 

IF(NDAT(Q5) ,LT.O)GOTO 100 
GALL TO(MER) 

GALL EXIT 

160 IF(NDAT( 92) .LT. 0)eAL'L WA I T ( NDAT ( 92 ) ) 
NDAT(9?)=-1 
CALL 0PN(2) 

N=MES(1) 

NSEC = 5^^M0D(N# 100 ) 

CALL SnRA(2,NSFC) 

CALL RFAOW(2,560, J) 

DO 200 L=l, 560, 7 
IF( J( L) . FQ . N) J{ L) ^0 
200 CONTINUE 

GALL SCRA(2/NSFC) 

CALL WRI TW( 2. 560. J) 

CALL CI.0S(2) 

NDAT(92) =0 
GALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

Name=eday 

ASSIGN 2=LANDMA 

Degin 

^EOJ 



$JOB LISLMK 
^ASSIGN 6 0 
SREW,5 
^INCLUDE 10 
^INCLUDE CSF 
SINCLUDE FIO 
^INCLUDE WAIT 
SFORTRA 

subroutine LISTEM( JDIR, ID,KWANT) 

DIMENSION JDIR(56Q) 

DIMENSION LABEL(2Q) 

DIMENSION M0UT(241 
dimension INUM(20) 

DATA LABFL/48HL ill L2 L3 I 4 L5 L6 L7 L8 L9 S t 
DATA iNUM/o>o,o,o;o;o,0/0;o,o>o,i,4,3,3,o,G;e,o;o/ 

ri*o 
12 = 0 
NL = 0 

IL=LABFL(KWANT+1) 

NUM8= IMUM (KWANT+11 

IF(KWANT .EQ, 12)G0T0 4444 

DO 4 JA=1,560,7 

KlND=JniR( JA+6)/4096 

IF(KI Nn ,GT . KWANT )GOTO 4 

IF(KI NO J.T . KWANT . AND . KWANTVnE . 9)G0T0 4 

IF( JDIP( JA) ,NE. ID^GOTO 4 

IL=LABPL(KIND+1) 

J=UA+1 
NL=NL+i 
IT=JDIR( J) 

J1 = JDIP( J + 1 ) 

J2«^JDIR( J + 2) 

Kl=JDIR(J+3) 

K2=JDIR(J+4) 

L1=JDIR( J+5) 

L1=MOD(L1/4096) 

KFiO 

IF( Il.FQ. Jl. AND. 1 2.EQ. J2 )KF = 1 
IF( Jl.FQ . 0, AND. J2.E0 . 0)KF=1 

333 F0RMAT(A3, 18, 13,4184 

334 F0RMAT(A3,8I8) 

ENC0DE(72,333,M0UT)iL, I T , U i Kl . K2 , J1 , J2 

IF ( KF. PQ. 1) ENCODE (72, 333 /MOUT) I L / I T , LI , K1 , K2 

KA=JA+2 

KB = KA-^MUMB-1 

1F( IT.ME.O)KA = KA-t ' 

1F(NUMR.NE.O)ENCOQE(72,334,MOUT) I L , ( JD I R ( KLI / KLrKA > KB ) 
68 CONTINUE 
IlrJl 
12* J2 

CALL TO(MOUT) 

4 CONTINUE 
RETURN 
4444 IH=0 

DO 44 JA=1,560,7 
•IF(JDIR(JA).NE.ID4G0T0 44 
KlND=jniR( JA+6)/4096 




ir(KINn.NE.12>G0TQ A5 

I1=^JDIR( JA-*'2) 

I2 = JDIR ( JA + 3 ) 

I3=JDIR( JA+4) 

I4=JD1R( JA+5) 

GOTO 44 

45 lF(KINn.NE.l3)G0T0 44 
IH=IH+1 
I5=JDIR( JA+2) 

I6=JDIR( JA+3) 

I7 = JDIR ( JA + 4 ) 

4^ continue 

ENConE(72,339,M0UT)il, 12 , 13, 14,15,16,17 
IF( IH.PO, 2)CALL TQ(MOUT) 

339 FORMAT( '0» ,818) 

RETURN 

- • - • - - ■ • - - • 

DIMENSION JDIR(56Q>yMES(8) ,MOUT( 24) ,MER(24) 
DIMENSION NAM(2) 

COMMON/S YSCOM/ND At ( 100 ) 

DATA NAM/6HL I SLMK/ 

DATA MFR/30H NO LANDMARKS ON SPECIFIED DAY / 

199 MESd ) =NAM( 1 ) 

MES(2) =NAM( 2) 

CALL lO(MES) 

IF(MESa> .EO.NAMd )^GO TO 299 
IF<MES(1) .EO.O)CAL‘L ABORT 
IF(NDAT(92) ,LT,0)CALL W A I T ( ND A T ( 9 2 ) ) 

NDAT(9?) =“1 
GALL 0PN(2) 

HSEC = 5^^M0D(MES(1) ;ioo ) 

GALL SCRA(2,MSEC) 

CALL RFAnW(2,560, JDI R) 

CALL CLOS(2) 

NDAT(92)=0 

JUMP=MFS{2) 

IF ( JUMP.NE . 0 )GOTO 4444 
DO 450 JA=1,4 
JB=13-JA 

450 CALL LISTEM(JDIR,HE$(1),JB) 

GOTO 199 

4444 1F( JUMP.LT.DCALL EXIT 
IF( JUMP.GT.5)CALL EXIT 
GOTO (203, 202,201, 204,205 ), JUMP 
C LIST landmarks 

201 CONTINUE 

CALL LISTEM( JDIR,MES(1) ,9) 

GO TO 199 
299 CONTINUE 
, CALL EXIT 
G LIST SPIN pate 

202 CONTINUE 

CALL LISTEMC JDIR,MES(1>, 11) 

GO TO 199 
G list' ORBIT 




203 CONTINUE 

CALL LISTEM( JDIR,MES(1),12) 

GOTO 1Q9 
C BETA-6ETAD0T 

204 CONTINUE 

CALL LISTEM( JDIR,«ES(1)',14) 
GOTO 1Q9 

c Earth edges 

205 CONTINUE 

CALL LTSTEM( JDIR,NES(1) , 15) 

GOTO 199 

ENDS 

^CATALOG 

type=fg 

name=lislmk 

ASSIGN 2=LANPMA 

begin 
Seoj . 



SjOB LISDIR 
SASSIGN 6 0 
5REW,5 

SINCLUDE CSr 
SiNCLUnE 10 
^INCLUDE FIO 
SFORTRA 

DIMENSION MES( 8 ) > J( 112) 
dimension M0UT(24^ 
COMMON/SYSCOM/NDATdOO) 

DATA MFS/6HL ISDIRiT 
CALL lO(MES) 

CALL 0PN(2) 

CALL RFW(2> 

CALL RFADW(2,ll2,a) 

CALL CL0S(2) 

1 FORMAT! I3,5I7,3I3;i5) 

DO 11 K=l,8 
L = 1 4 ( K - 1 ) + 1 
M = L^-6 

MK = NDAT(K + 82 ) 

MJ=J(L+7) 

IF( J(L) .FO. 0)GOTO li 
ENCODE! 7?, 1,M0UT )K,MJ, (J(N),N=L,M) ,MK 
CALL TO!MOUT) 
li CONTINUE 
CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG’ 

A = 

VSWIGPIS? ISDIR 

Degin 

SeOj 



!5J08 LFRAME 
$ASSIGN#6, 0 
SREW,5 

^INCLUDE CSF 
^INCLUDE FIO 

^include ftime 

^INCLUDE GETGAM 
^INCLUDE ILALO 
^INCLUDE 10 
S5INCL.UDE LOOKUP 
SINCLUDE SATPAR 
^INCLUDE TVSAT 
^^INCLUDE WAIT 
^FORTRAN 

DIMENSION MES(8) ,NAM(2) 

DATA NAM/6HLFRAME/ 

1 MES(l)rNAM(l) 

MES(2)=NAM(2) 

GALL lO(MES) 

IF(MES(1).EO.NAM(1);AND.MES(2).EO.NAM(2))CALL EXjT 
DO 2 1=1,8 

IF(MESM ) ,NE,0)CAL‘L D0IT(MFS( I ) ) 

2 CONTINUE 
GO TO 1 
ENB 

SUBROUTINE DO]T(N) 

COMMON /SYS COM/ I COM ( 10 0 ) 

EQUIVAIENCE H COM ( 2) , I DA Y ) 

DIMENSION M{14),M0UT(24) 

GALL L00K(3,N,H) 

ITL=M(5) 

ITE=M<A) 

CALL TVSATTN, I TL i I TE , I L 2 , I F2 , I T , I D ) 

1F< ID.FO.OICALL EXIT 
NTAPE=M(2) 

NLIN=M(7) 

ENCODE(72,100,MOUT)N,NTAPE, ID,IT,IL2,IE2,NLtN 
180 FORMAT ( ’F», 15, 217; 18, 317, 219) 

1F( IDAY.NE. ID)GO TO 1 
INAV=1 

PICTIM=FTIME( IT) . ' 

XELE=IF2 

CALL GFTGAM( ID, IT;pETAIN,BFTnOT) 

CALL SaTFaR(PICTIM,XLIN,XEI E, XLAT,'XL0N,1 , I NA V , 8b TA f N , BETdOT , 0 . 0 ) 
ILAT = II Al O(XLAT) 

ILON = II AI.O(XLON) 

ENCODE( 72, 10 0,MOUT)N,NTAPE, I D , I T , I L2 , I E2 , NLt N, aT, I L ON 

i GALL TO(MOUT) 

RETURN 
ENDS 

S^CATALOG 
TYPE=FG 

name=lframe 

ASSIGN 2=REEI S . 3=FRAMES ; 11 =LANDM A 
BEGIN 

Seoj 




5job lnidmrk 

SASSIGN.6, 0 
SrEW,5 

S^INCLUDE TVSAT 
SSINCLUDE WAIT 
SINCLUDE LOOKUP 
^INCLUDE CSF 
^INCLUDE no 
SIMCLUDE 10 
j^rdRTRAN 

dimension MIN(8) >M0UT( 10) /NAM(2) 

DATA NAM/6HLNDMRK/ 

DATA M0UT/6HDLANDM/ 

e INPUT IS FRAME, LAT, LON, TVL; TVE, KEY 
C OUTPUT IS SYYDDD, HHMMSS, KEY; SATL, SATE, LAT, LON 
1 MIN<1)=NAM(1) 

MIN(2) =NAM (2) 

CALL lO(MIN) 

IF(MINd) .EQ,NAM(1)^CALL EXIT 

e 

CALL TVSAT (M IN (1) ; M i N ( 4 ) , M T N ( 5 ) , } L , I E , 1 T , I D ^ 

0 fD=0 IMP MISSING FRAME OR TAPE LINKAGE 
IF ( ID. FQ » 0 )CALL EXIT 
C SYYDDD 

M0UT(3)=ID 
e HHMMSS 

M0UT(4)=IT 

C kEY 

M0UT(5 )=MIN (6 ) 

C SATLIN 

M0UT(6)=IL 
e Sat element 

M0UT(7)=IE 

G LAT 

M0UT(8)=MIN(2) 

e LON 

M0UT(9)=MIN(3) 

0 KIND 

MOUT(10)=MIN(7) 

CALL SO(MOUT) 

GOTO 1 

ENDS , 

^CATALOG 

TYPE=FG 

NAME=LNDMRK 

ASSIGN 2,REELS,3=FRAMES 

begin 

/(^ 



liJOB I NIT 
s:rew,5 
SINCLUDE 10 
SINCLUDE FIO 
•RASSIGN 6 0 
^FORTRAN 

DIMENSION JSEC(112) 

COHMON/SYSCOM/NDAT ( 100 ) 

101 FORMAK' TYPE IN 4 DIGIT TIME* HOURS AND MINUTE^’) 
102- F0RMAT(2I2) 

901 FORMAT( //IX, 8A3//') 

CALL 0PN(2) 

CALL SCRA(2,0) 

CALL REAnW(2/ll2, JSEC) 

CALL CL0S(2) 

CALL FROGS ( 1, 5HOPCOM, 7) 

WRiTEd , 901 ) ( JSEC( JJ) , JJ=1, 8> 

WRITE(1,101> 

READ(1.102) II, 12 
DO 99 JJ=1,100 
99 NDAT(JJ)=0 

I =60* I 2 + 3600* I 1 
NDAT(96)=I 
GALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAHE=INIT,2 

JiSSiGN 1 = 1,2 = VERS,3 = SYSC0M 

Degin 

^^EOJ 



Sjdb addr 

SASSIGN 6 0 

5h:J:w,gn 5 lr 

SFDRTRA 

subroutine ADDR( IL, I F , I DL , I DE , I S , I M ) 

C INPUTS »*«*» 

C iD IS DAY NUMBER 
C iL IS SATEI LITE START LfNE 
C TE IS SATELLITE START ELEMENT 
e OUTPUTS 

TL IS CHANGEn TO LIE ON A LINE IN OUE 

C IE IS CHANGED TO LIE ON WORD BOUNDARY 

G IDL IS LiNF Sampling on disk 
G IDE IS element sampling ON DISK 
e IS IS starting SECTOR FOR REQUEST 
C IF IS = -1 IMP NON-HIT 

e IM is word offset from starting SECTOR 

DIMENSION J(il2) 

DATA N/0/ 

IS = -1 

IF(N,EO.O)CALL 0PN(7) 

N = 1 

CALL RFW(7) 

GALL REAnW(7>ll2, J) 

DO 1 K~1.8 
L=(K-1)«14+1 
IF( ID.NE. J(L) )GO TO 1 
L = L + 1 

IFUT.NE. J(L))GOTO 1 
L = L + 1 
ILS=J(L> 

L = L + 1 
IES=J(L) 

L = L + 1 
LDiJ(U 
L = L + 1 
IED = J(I.) 

IF(IL J T,ILS)GOTO 1 
IF( lE.I T. IES)GOTO 1 
IF( IL.GT . ILS + LD*5001GOTO 1 
IF( lE.GT. IES+IED*224^^3)G0T0 1 

G « ♦ * (IL#IE) NOW LIES WITHIN AREA OF INTEREST * « * 
INfe = 3<^TEn 
M=< IL-TLS)/LD 
IL=ILS + Mi^LD 
IS=2«M 

IM^J: ( IE- IFS)/INC 
. IE* IES^IM^INC 
IDL=LD 
IDE=IEn 

IS=IS+1 OnO*(K“l) 

GALL AGE(K) 

IF( IM,I T.112)G0 TQ 1 
IM=IM-tl2 
lS-IS+1 




1 CONTINUE 
C 1M SHOULD COUNT FROH t 
IF( IS.NE.-l ) 

RETURN 

ENDS 

SFiLEMA 

ESTAB.5,ADDR,0.1,0>4 

EXiT 

SEDJ 



$A$SI6N,6, 0 
SREW,5 

SINCLUDE CSF 
J^INCLUDE HIO 
SINCLUDE IK 

^include 10 
^include FIO 
Sfortra 

COMMON/SYSCOM/NDAT (100 ) 

DIMENSION MES(8),M(64) 

DATA MFS/6HENH001;: 

CALL lO(MES) 

CALL 0PN(2) 

GALL RFW(2) 

GALL RFAOW(2,64,MO 
CALL RFW(2) 

IF(MES(1) .NE.OGOTO 100 
DO 1 J=l,64 
1 M(J)=0 

100 D = MES( 2) -MES(1 ) ' 

IF(D.LT,1. >D=1. 

S1=MES (4 ) -MES( 3) 

S2=MES(6 )-MES{5) 

S3±MES(8)-MES(7) 

SliSl/n 

S2=S2/n 

S3=S3/n 

X1=MES(3) 

X2=MES(5) 

X3=MES(7) 

I =MES(1 ) 

J=MES(2) 

DO 200 L=I,J 

M1 = X1 

M2 = X2 

M3 = X3 

X1=X1+S1 

X2=X2+S2 

X3:iX3 + S3 

200 M(L) =4096*M1+64»M2+H3 
Call WRITW(2>64,M) 

CALL Cf 0S(2) 

IF( J,NF.63)CALL EXIT 

CALL HTO( ’101, ’2140; ’1000000) 

CALL HTO( *101f ’2000? ’23000000 + IK(M(l) ) ) 
DO 300 L=2,64 

300 CALL Hl0(’l0lf’2000i'2l000000+IK(M(L))) 
GALL H T 0 ( • 101 » ’ 2140 ; NDAT ( 75 ) ) 

CALL EXIT 
ENDS 
^CATALOG 
YPE=ro 
IAME=ENH001 
.S5IGN 2=ENH1 
lEGIN 
-FiLEMA 

’.REATE,ENH1,0,1,3,1 

XiT 

EDJ 


SJOB LOGOUT 
SASSIGN 6 0 

Jbinclude CSF 
S^include no 

SINCLUnE 10 
^FORTRAN 

COMMON/SYSCOM/NCOM( 10 0 ) 

DIMENSION MCOM(IOQ) 

DIMENSION MES(8) ,M0UT(24) , JL0G<112) 

DIMENSION MM0UT(12) 

DIMENSION MESX9(1Q) 

EQUIVALENCE (MOUT (125 ,MM0UT(1> ) 

DATA MFS/6HL0G0UT/ 

DATA MFSX9/6HD0I0XX/ 

CALL FR0GS(7,.MES5 
CALL ID(MES) 

IF(NC0M(1) ,EQ,0)CALL exit 
KPROJ = mcOM( 1 ) 

NCOM(1)=0 
DO 983 JA=1,100 
983 MCOM( JA ) =NCOM( JA) 

CALL 0PN(3) 

CALL RFW(3) 

CALL WRITW(3/.100,MCOM) 

CALL CI.0S(3) 

NC0M(76)=1 
CALL SQ(MESX9) 

NCL0CK=NC0M(97) 

CALL 0PN(2) 

CALL RFN(2) 

IF(MESd) .FQ.9878985G0 TO 900 
CALL RFADW(2>112, JLOG) 

3 CONTINUE 

CALL SCRA(2,0) 

DO 2 J=l,112,2 

IF( JLOn< J) . EQ. O.OR. JLOGC J)V eO.KPROJ)GO TO 100 
2 CONTINUE 

J = lll 

100 JLOG(J>=KPROJ 

JLOG( J+1) = JLOG ( J+1) ^NCLOCK 
CALL WRlTw(2dl2nL0G) 

CALL Cl 0S(2) 

F6e = NCI OCK 
F60=F60/60. 

ENCODE! 72, 222, M OUT) KPR0J,F60 
222 FORMAT ( ‘PROJECT I5,'F8. 2, ♦ MINUTES') 

NC0M(9^ )=NC0M(96)+NG0M(97) 

IF( NC OM ( 96 ).6T. 86^00) NC0M(96)=NC0M(96)-8 64 00 

NC0M(97)=0 

MM = NCO^*( 96) /60 

MM=MOD(MM, 60) 

Ml=MOD( MM, 10) 

M2 = MOD(MM/10 , 10 ) 

MM=NCOM( 96 ) /3600 
M3 = M0D(MM, 10 ) 

H4=MM/10 



ENfeODE( 36, 333,MM0UT^M4,M3 > m2,M1 
333 FORMAK ’SYSTEM IDLE AT S4I1) 
CALL TD(MOUT) 

CALL EXIT 

900 DO 901 J=l,112 
961 JLOG(J)=0 
GO TO 3 
ENDS 

S^CATALOG 

TYPE^FG 

Name=logout 

ASSIGN 2=L0G,3=SYSC0M 

BEGIN 

$EDJ 



SJ08 LDCMTR 
55ASSIGN 6>0 
5REW,5 

SINCLUDE CSF 

^INCLUDE 10 r 

^include no 
^include lookup 

^INCLUDE WAIT 
^SINCLUDE AGE 

sinclude stage 

SINCLUDE NR2L 

^include ftime 

SFORTRA 

subroutine P0S(M,L‘INF,ITIMF ) 

DIMENSION DUMMY(2) 

COMMON /SYS COM/ I COM ( 10 0) 

DIMENSION M0UT(24) 

DATA MOUT/40HTAPE IDENTITY VERIFIED BY LDCNIR 
DATA KFY/0/ 

GALL 0PN(2) 

CALL RFW(2) 

N=M-1 

IF(N,LT . 1 )RETURN 
T = FT IMF( I T I ME) 

DO 1 J=1,N 

IF( IC0M( 1 ) ,E0. OGOTO 222 

if(keyVeo.o)goto too 

CALL RFAnW(2.2>DUMMY) 

GOTO 1 

180 GALL NR2L (L, IT ) 

IF(L.EO*0)G0T0 1 
I=L-J 

IF(IABS(I-LINE).GT.5)G0T0 1 
X=PTIMF(IT) 

0= . 6<^FL0AT (L ) /360Q . 

X-X-0 

Y=ABS(X-T ) *3600 . 

IF(Y.GT.100. )G0T0 1 
KEV = 1 

CALL TO(MOUT) 

1 CONTINUE 

CALL Cl 0S(2) 

RETURN 

222 CALL RFW(2) 

CALL CI.OS( 2) 

CALL EXIT 
END 

subroutine PICK(N) 
dimension NMES(24) 

COMMON/S YS COM/ND AT ( 100) 

DATA NMES/30HAREA 0 USED BY LDCNTR 

I=t 
10 = 0 

DO 1 J=l,8 

IF( I0.GT.NDAT( J+82)^G0 TO 1 



I=J 

I0 = NDAT(J-f82) 

1 CONTINUE 

CALL AOE(I) 

NMES(2) =NMES( 2 ) +I 
CALL TO(NMES) 

N-i 

RETURN 

END 

DIMENSION MES(8),Ml(14),MOUT(10),MER(24)inSEe(ll2) 
GOMMON/SYSCOM/NDAT (100 ) 

DATA MFS/6HLDCNTR/ 

DATA MFR/30HLDCNTR PARAMETFR ERROR / 

DATA M0UT/6HABSLD / 

CALL lO(MES) 

CALL WAIT(NDAT(94) ) 

NDAT(94)=-1 

GALL LnOKUP(4,MES(l^ ,M1) ! 

NDAT(94 ) = 0 

IF(MKl) .EQ.0)G0 to 900 
LS = MES(2) -MK4 )+l 
IF(LS,I.T.1)60 TO 900 
IES=MES(3)-M1(5) +1 
IF(IESVlF.O)GO to 900 
G FIRST TAPE RELATIVE ELEMENT TO LOAD 
MOUT ( 4 > = I ES 

e LINE increment 

IF(MES(4) .EQ,0)MES(4)=1 
MOUT (5) =MES( 4 ) 

C ELEMENT INCREMENT 

IF(MES(5).EQ,0)MES(5)=3 

M0UT(6)=MES(5) 

c Satellite line 

M0UT(7>=MES(2) 

e FIRST SATELLITE LMENT ON TAPE 
M0UT(8)=M1(5) 

C EEC KEY 

M0UT(9)=MES(6) 

C TAPE NUMBER 

MOUT(in)=Ml(l) 

GALL PICK(NSEC) 

C AREA TO PUT DATA 
MOUT (3) =NSEC 

CALL P0S(LS,M1(4) ;m1(3) ) 

GALL 0PN(3) 

CALL RFW(3) 

CALL RFA0W(3, 112, I SEC) 

M = 14*(MSFC-1 ) + l 
C SYYDDD 

ISFC(M)=M1(2) 

M = M + 1 
C HHMMSS 

ISEC(M)=M1(3) 




M = M + 1 

DO 99 J=2,6 
IS^C (M) =MES ( J) 

99 M=M+1 

e TAPENO 

I SEC( M ) =M1 ( 1 ) 

GALL RFW(3) 

GALL WRI TW(3/112, rSEC ) 
CALL CL0S(3)~ 

CALL SD(MOUT) 

CALL EXIT 
900 CALL TO(MER) 

CALL EXIT 
ENDS 

S^CATALOG 

tYP£=FG,PRIV 

Mame=ldcntr 

ASSIGN 2=^11, 3 = nKDIRi 4 = REELS 

BEGIN 

SEOJ 



SJOb absld 

SASsiGN,6#0 

$REW,5 

^INCLUDE CSF 
i^INCLUDE EDGFCD 
^INCLUDE FIO 
^INCLUDE FTIME 
^INCLUDE GETRAM 

$ include 10 * - 

SINCLUDE LOOKUP 
^SINCLUDE SATFAR 
SINCLUDE STARE 
SINCLUDE WAIT 
^FORTRAN 

DIMENSION IS(8193) 

DIMENSION IT(2751) 

DIMENSION ID(112O0 
DIMENSION MES(8) 

DIMENSION MUNG(14^ 

DIMENSION M0UT(24) 

COMMON/S YSCOM/ I COM( iOO) 

EQUIVAI ENCE( IT(1) ; lS(5462n 
DATA MFS/6HABSL0 / 

• DATA MOUT/30HTAPE LOAD COMPLETED 
CALL 0PN(2) - 
CALL 0PN(3) 

CALL lO(MES) 

G HES(1)= DISK AREA i 8 
NSEC=MFS(1) 

c mes( 2 )=starttng element Tape relative 

IES=MES(2) 

fej H-ES(3)IS line increment 

lLb=MES(3) 

IF( ILDVEO.O) ILD=1 
C HES<4) IS element INCREMENT 
IED=MES(4) 

IF< IED.EQ.O) IED=3 

e HES(5) is satellite line tape is now positioned AT 

IPL=MES(5) 

C HES(6) IS FIRST SAT ELEMENT ON TAPE 
I0F=MES(6) 
e MES(7) IS EEC KEY 
KEE=MES(7) 

e HES(8> IS REEL NUMBER 

IF( IC0M(94) ,LT . 0)CALL WA I T ( I COM ( 94 ) ) 
IC0M(94)=-1 

CALL L00KUP(4,MES(8) ,MUNG) 

ICOM(94)=0 

1DAY=MUNG(2) 

PST=ET1ME(MUNG(3)1 

CALL 6FTRAK(IDAY,MUNG(3),BETA/BD0T « 

NSEC=(NSEC-1)»100Q 

NR = 500*^ILD ■ 

NEt672*IED 
I.EL=IES + NE-1 



INAV=1 

DO 1 J=l,500 

IF( ICOM(I) ,EO. 0)GQTd 222 
e i^ead Tape record 

CALL RFAnw(2>273i;iT) 

e Hove samples split to is 

e FIRST TAPE WORD TO START SPLITTING 
ITST = l + ( IES-D/3 
NSPLI T=NF+6 

C offset between split start and FIRST wanted element 
IR = M0D( IPS + 2# 3 ) 

d PLACE IN Satellite coordinate system to put spltt samples 

IDEST=T0F+IES- IR -1 

IF(KEE.EQ.0)CALL CRACKCNSPI it WT( I TST) , IS( IDEST^ ) 

C IT EEC NEEnEO, MUST SRLfT WHOLE LINE 

IF(KEE,NF. 0 )CALL eRACK( 8193 -lOF> it, IS( IOF) ) 

C BO EARTH-EHGF correction 

CALL EriGECO{PST,KeEnNAV,BETA^BDOT, IPL, IS, IRELT? IBAD) 
IF(IBAn.EO.O)GOTO 777 
DO 776 J7=l,8193 

776 IS(J7)=0 

777 CONTINUE 
IPL=IPI +ILD 

G K IS PLACE IN OUTPUT BUFFER TO PUT LINE 
K=M0D(J,5) “ 

IF(K.EO.O)K=5 

K = K-1 

KKiO 

J0P=I0F+TDELT 

DO 2 JJ=TES, lEL* lED 

M = D 

JA=JOF-l+JJ 
no 22 lED 

MM=JA+JJJ-1 
22 M=M+IS(MM) 

M=M/IED 
KK=KK+t 
2 IS(KK)=M 

KAB = 224^^K-M 

GALL PACK(672, IS, iD(KAn) ) 

IF(K.NF.4)G0 to 11 
GALL SCRA(3,NSEC) 

CALL WRITW(3,1120;ID) 

NSEC=NSEC+10 

11 iFdLD^EO.DGOTO 1 
II=ILD-1 

DO 12 TX = 1, I I 

12 CALL RFAnw(2, 2, m 
1 CONTINUE 

CALL TQ(MOUT) 

222 CALL REW(2) 

CALL C10S(2) 

CALL Cl OS( 3 ) 

CALL EXIT 
ENDS 




^CATALOG 
KjAHE = AeSLD 
TYPE=FG 
TBSI2E=50OO 

ASSIGN 2 = 11, 3=nK, 4=RFELS, 11 = LANDMA 
Begin 

$E0J 



LOGGIN 
^ASSIGN 6 0 
^RPW,5 
iSFORTRAN 

COMMON/SYSCOM/N( 1Q01 
DIMENSION MESX9(10) 

DIMENSION MES(8) 

DIMENSION MMEl (2 ) ;mME2(10 ) 

DIMENSION MES2 (24KMFS3(24 ) >MES4 (24 > , ME S5 ( 24 ^ # MOuT ( 24 ) 
dimension MC(IOO) 

DIMENSION MPR0J(112^ 

DIMENSION MM0UT(13) 

EQUIVAIENCE(MOUT(110 ,MMOUT(l) ) 

DATA MC/100*0/ 

DATA MFSX9/6HD0I0XX/ 

DATA MFS5/30H^^**PR I VI LEDGED PROJECT*** 

DATA IRLK/3H / 

DATA MRS/6HL0GGIN/ 

DATA MFS4/30HILLEGAL: PROJECT 
DATA MFS2/30HMUST LOGOUT FIRST 
DATA MFSv3/6HL0G0UT/ 

DATA MME1/6HENH001/ 

DATA MME2/0,0, 0, 63, 9,63> 0/63, 0, 63/ 

MES3(3^ = 0 

MME2(1) =MME1(1 ) 

MME2(2)=MME1(2 ) 

CALL OPN(4) 

CALL RFW(4) 

CALL RFADW( 4, 90, MC) 

CALL Cl.OS<4) 

C COMMON 1-90 FROM DISK 
C COMMON 91-04 heRO 
C COMMON 95-1 OOUNCHANGED 
DO 983 JA=1,95 
983 N(JA)=MC(JA) 

GALL lO(MES) 

if(me5(1).eo.o.or;mes(i).gt.9999)call exit 
IF(N(1) .FO.OIGO to 111 
CALL T0(MES2) 

CALL EXIT 
111 CONTINUE 
N(80)=n 
N(79)=*77 
N(78) = t400 
N(76)=2 

N(75)='00410000 
N(74 ) =0 
N( 73) =n 

N(72) =♦ 02020202 
CALL S0(MESX9) 

CALL Sn(MMF2) 

NTiCK=MES( 2) 

IF{NTICK.EQ,0)NTICK=10 
NT ICK=MT I CK*60 
NTICK=MTICK*120 

GALL FR0GS(6i6HL0G0UT,254,NTICK ) 




CALL 0PN(3) 

CALL RFW(3) 

CALL RFAHW( 3i 10, MOUT) 

GALL C10S(3) 

N(l) =MFS(1 ) 

N(96)=N(96)+N(97) 

N(97)=0 

IF (N(9A).GT. 864001 N<96)=N(96> “86400 

MM=N(96) 760 

MM=M0D(MM,60) 

M1 = M0D(MM, 10 ) 

M2=MOD(MM/10,10) 

MM=N(96 ) /3600 
M3^=MOD(MM,10) 

M4=MM/1 0 

ENCODE (4?, 222, MM0UT1M4, M3, M2, Ml 
222 FORMATC ACTIVE AT », 12,311) 

GALL TO(MOUT) 

CALL 0PN(2) 

GALL SCRA(2,0) 

call RFAnW(2,112,HPR0J) 

GALL Cl 0S(2) 

DO 93 JJ=1,112,2 
IF(MPROJ( JJ) .EO .N( 11 )G0 TO 993 
9? CONTINUE 

CALL TQ(MES4) 
call SQ(MES3) 

GALL EXIT 

993 N(95)=f*^PR0J( JJ^-1) 

IKEY=Nf 95) .AND . '40000000 
IF( IKEY.FQ.O )CALL EXIT 
GALL T0(MES5) 

CALL EXIT 
ENDS 

SilNCLUDE 10 
SINCLUDE FIO 
SINCLUDE CSF 
SCATALOG 
TYPE=F6 
name=loggin 

ASSIGN 2=PR0JS,3=VERS,4-SYSC0M 
BEGIN 
SEDJ 




$JOB DOIOXX 
$REW,5 
lASSIGN,6,0 
^INCLUDE CSF 
^INCLUDE HIO 
SFORTRA 

DIHENSION MES(8) 
C0HM0N/SYSC0M/N( IQO^ 

DATA MPS/6HD0I0XX/ 

CALL lO(MES) 

CALL HIO( »101> '2000 + 16, N(80) ) 
CALL HIO( *101, '2000 + 2^16, N(79) ) 
CALL HTO( *101, '2000 + 3*16, N(78) ) 
CALL HIO( *101, '2000 + 5*16, |si(76) > 
GALL HTO( '101, '2000 + 6*16, N(75) ) 
GALL HIO( '101, * 1000 + 3*16, N(74) ) 
CALL HIO( *101, ' 1000+5*16, N(73) ) 
GALL H10( *101, '1000 + 6*16, N(72) ) 
CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NArtE=DOlDXX 

BEGIN 

SEOJ 



SSJOB CNTRL 
SrEW,5 
lBASSIGN,6/0 
^^ASSEMB 

START BLL SMAIN 
BLU SEXIT 
ENDS START 

^FORTRAN 


subroutine main 

DIMENSION MES(8)#NAM(2),M0UT(24) 
MSYS(IO) 

LMES(3) 

LF( 2) 

NF( 2) 

I W(2) 

LD(2) 

JE(2) 

LKMES(3^ 

MTVL(IO) 

MECHO( 24) 

CURSOR pointer WORO 

current-frame/desired frame 

ROUNDS 


DIMENSION 

dimension 

DI MENS I ON 
DIMENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENS I ON 
DIMENSION 
NDAT(55) is 
NDAT(56) 19 
57 IS frame 
59 IS LAT 
60 IS LONE 
IS WIND temp 

62 IS LAST AREA 

63 

64 


STORAGE 
USED FOR 


A LOAD 


IS CURSOR SI2E 


COMMON/SYSCOM/NDATdOO ) 

DATA MECH0/3H ft / 

DATA I w / 6 h B A K G N D / '' ■ 

DATA NF/6HNAVFRM/ 

DATA LF/6HLFRAME/ 

DATA LD/6HLNDMRK/ 

DATA JE/6HFRMEAR/ 

DATA LMES/6HL00P / 

DATA LKMES/6HL ISDIr; 

DATA MTVL/6HLDCNTV/ 

DATA MOUT/30H BAD CNTRL 

DATA NAM/6HCNTRL / 

999 MES( 1 ) =NAM( 1 ) 

MES( 2) =NAM( 2) 

CALL IO(MES) 

K=MES(1) 

IF(MESd) . EO . NAM d ) ^ RETURN 
IF(NDAT(1).E0.0)G0T0 999 
MECHOd )=MECH0(1).AND. '77777400 
MEDHOd > =MFCHO( 1) .'OR .K 


IF (K.NE. *314)G0T0 2 
NDAT(6?) =0 
CALL SD(LMES) 



GOTO 1 

G A 

2 iF(k*NP. ' 30i)GOTO 3 

ND'AT(6?) = 0 

GALL STEP 
GOTO 1 

C B 

3 IF{K.NF. ’302)GOTO 4 

NDAT(6?)=0 

CALL back 
GOTO 1 

e R 

4 IF(K,NP. »322)G0T0 5 

NDAT(62)=0 

GALL REST 
GOTO 1 

C C 

9 IF(K. WE. »303)60TO 6 
MSYS(l)=i F(l) 

MSyS(2)=LF(2) 

MSVS(3)=NDAT(56) ,AND. ’7777 
DO 500 JA=4,10 
560 MSYS(JA)=0 

GALL SD(MSYS) 

GOTO 1 

G M 

6 1F(K.NF. »315)G0T0 7 
NDAT(62) =0 
MSYS(1)=LD(1) 

MSYS(2)=I D(2) 

MSYS(3^ =NDAT(56) .AND. ’7 777 

MSYS(4)=NDAT(59) 

HSYS(5)=NDAT(60> 

MSYS(6>=NDAT(55)/4096 

MSYS(7>=M0D(NDAT(55) >4096) 

MSYS(8)=0 

CALL SO(MSYS) 

CALL STEP 
GOTO 1 

e E 

7 IF (K.NP. ’305)GOTO 8 
MSYS(1)=JE(1) 

MSVS(2)=JE(2) 

MSYS(3)=NDAT(56) . AND. ’7777 
MSYS(4)=NDAT(55)/4096 
MSYS(5^=M0D(NDAT<55^ >4 096) 
CALL SO(MSYS) 

GOTO 1 

C N 

8 IF(K,NE. ’316)G0T0 9 
GALL SO(NF) 

GOTO 1 

C W 

9 IF(K.NF. *327)G0T0 16 
NDAT(62)=0 

1F(NDAT<61) .NE . 0)G0TO 900 
NDAT(61 )=NDAT(55) 



CALL STEP 
GOTO 1 

900 MSYS(1)=I k(l) 

MSVS(2) = r W( 2 ) 

MSyS(6>=NDAT(56) .AND, ’7777 
MSyS(3)=MSYS(6)-l 
IT=NDAT(57)/4096 
IF(MSYS(6) .EO. mCALL STEP 
KK=NDAT(61) 

NDAT(61)=0 
MSYS(4)=KK/4096 
MSYS(5)=M0D(KK, 4096^ 
MSYS(7)=NDAT(55)/4096 
. MSYS(8)=MOD(NDAT(550 ,4096) 
MSYS(9)=NDAT(64 )/4096 
MSYSdn )=M0D(NDAT(64) , 40 96) 

GALL SO(MSYS) 

GOTO 1 

e D 

ID IF(K.NF. '304)G0T0 li 
CALL SO(IKMES) 

GOTO 1 
e 1 THRU 8 

11 IF(K.LT. *260)GOTO 12 
IF (K.GT . • 270 )GOTO 12 
MTVL(3)=K- *260 
NDAT(62)=MTVL(3) 

MTVL(4)=NDAT(56) . AND . *7777 
MTVL(5) =0 

MTVL(6)=0 
MTVL(7)=1 
CALL SO(MTVL) . 

GOTO 1 
C r J K 

12 IF(K.LT*’311.0R.KvGT. *313)G0T0 13 
K=K- ’307 

MTVL (3)=NDAT(62) 

MTVL(4 )=NDAT(56) . AND, ’7777 
MTVL(7)=K 
NDAT<62)=0 
G CURSOR 

ICL=NDAT(55)/4096 
ICE=MOn (NDAT (55 ) ,4096) 

IS2=50n/K 

IS?=lS?/2 

MTVL(5)=ICL-IS? 

lS2=70n/K 

IS2=IS?/2 

MTVL(6)=1CE-IS? 

CALL SO(MTVL) 

GOTO 1 

13 CONTINUE 
GOTO 999 

1 CALL TO(MECHO) - 

.GOTO 999 



END 

SUBROUTINE STEP 

COMMON /SYSCOM/ND AT ( 100 ) 

IT=NDAT{57)/4096 

IB = NDAT (*57 ) -4096frtT 

ID=MOD(NDAT (56 ) ,4096) 

U=IT-IR 

IF( ID.PQ. IT)GOTO 2 

NDAT(56)=NDAT(56)+1 

RETURN 

2 ND'AT(56)=NDAT(56)-L 

RETURN 
END 

SUBROUTINE BACK 
COMMON /SYSCOM/ND AT ( 100 ) 
I T=NDAT(57)/4096 
IB=NDAT(57) .AND. '7777 
ID=NDAT(56) .AND. '7777 
L=1T-IR 

IF{ ID.FQ. IB)GOTO 2 

NDAT<56)=NDAT(56)-1 

RETURN 

2 NDAT(56) = NDAT(56)^^L 

return 

ENDS 

^INCLUDE CSF 

^catalog 

TYPE=FG 

name=cntrl 

BEGIN 

seoj 



SjOB CC ■ ' 

5BREW, 5 
^ASSIGN 6,0 
SSASSEMB 

START BLL SMAIN 
BLU SEXI 
ENDS start 
^include, CSF 
{glNCLUDE, STAGE 
SINCLUDE, 10 
^FORTRAN 

SUBROUTINE MAIN 
DIMENSION LIS(300) 

DIMENSION MES(27) ;m(60) 
DIMENSION NERN(2) 

DIMENSION NER(2) 

DIMENSION M3(24) 

DIMENSION NAM(-2) 

COMMON /SY5COM/ IP ( 100) 

DATA M3/6HCD FIN/ 

DATA NFR/6HERR0R / 

DATA NPRN/6HCRAP: / 

DATA ISTAR/3H^»#«/ 

DATA IPLK/ MO/ 

DATA IFN/3HEND/ 

DATA NAM/6HCC / 
MES(1)=NAM(1) 

MES(2) =NAM (2) 

CALL IQ(MES) 

CALL CRACK(1» ISTaR,TSTAR) 
CALL I01(»0707) 

CALL ini(*0207) 

CALL ini( *0216) 

CALL I0( ’0203,300;lIS) 

CALL ini(*0210) 

111 CALL I0( ’0701,27,MES) 

CALL I01(’0700) 
IF(IP(1).EQ.O)GOTQ 111 
GALL ini(*0607) 

GALL I0( '0602,27,MES) 

GALL ini(«0600) 

GALL ini(*0610) 

IF( IENVeO.MES( 1 ) )G0 TO 1000 
CALL CRACK( 60,MES;m^ 

K0 = 0 

DO 20 J=l,300,3 

IF(MES(1) .NE.LIS( J)^GO TO 20 

KO = J 

M1=LIS( J+1) 

M2rLIS( J+2) 

20 CONTINUE 

IF (K0)302, 302, 301 
301 CONTINUE 

IF(M( 3) .FQ. ISTaR)G0 TO 100 
IF(M(3) .FQ. IBLK)GQ TO 200 



300 CONTINUE 

MES(1)=NFR(1) 

MES(2)=NFR(2) 

363 CONTINUE 

CALL SOUASH(M, MES (3n 
CALL TO(MES) 

GO TO 111 

302 ME$(1)=NFRN(1) 

MES( 2)=NFRN( 2) 

GO TO 303 
160 MFS(1)=M1 

MES(2) =M2 

CALL SQUASH(M( 2) ,MES( 3) ) 
CALL SQ(MES) 

60 TO 111 
260 MES(1)=M1 

MES(2)=M2 
1=2 

DO 201 J=3,10 

CALL «AKF(I,M(3),N,U) 

IF (L.NP.OIGO TO 3Q0 
201 MES(J)=N 

GALL SD(MES) 

GO TO 111 

1000 call TOK * 0710) 

CALL T0(M3) ■ 

RETURN 

END 

subroutine SQUASHdS, ID) 

DIMENSION IS(24),rD(8) 
CALL PACK(24, IS. ID) 

RETURN 

END 

subroutine makf( I ;mjn,l ) 

DIMENSION M(24) 

DATA ICOM/'40/ 

DATA MIN/*55/ 

N = 0 
L = 0 

ISGN=1 

1 IF(I .6T.60)GO TO tOO 

IF(M( I > ,FQ.MIN)GO TO 900 
1F(M( I ) ,FO. ICOM)GQ TO 100 
KK=M( I )-48 

IF (KK.LT. 0 . OR.KK . GT;9)L-1 

N=i0*N+KK 
I=i+1 
GO TO 1 
100 1 = 1+1 

N=N»ISGN 
101 RETURN 
900 1=1+1 

ISGN=-1 
IF(N.NF.0)l=1 
GO TO 1 
ENDS 

!BASSIGN,6. 17 



SCATALOG 

TYPE=FG 

Nahe=cc 

ASSIGN 2 
BEGIN 
$.EDJ 


NAML IS, 6 = 1, 7 



iCjOB NaML IS 
SASSIGN 6 0 
5REW,5 
^INCLUDE 10 
iSlNCLUDE FIO 
$ 

FDRTRe-MeNSION J(300),M(3) 
DA^A IfN/3H£ND/ 
call 0PN(7> 

L=e 

1 CALL RnANW(7,3,M) 

IF(M(1 J .FQ. IEN)GOTOlOO 

L = L + 1 

J(L)=M(1) 

L = L-H 
J(L)=M(2) 

L = L + 1 
JU. )=M(3) 

GO TO 1 

160 DO 200 U-=L.299 

200 J(LL+1)=0 

GALL 0PN(2) 

CALL RFW(2) 

GALL WPANW(2i,300 , J) 
CALL CI.0S{2) 

CALL EXIT 
ENDS 

SaSSIGN 2 NAMLIS 

3^CATG0 

OJ LOGGIN 

EJ LOGOUT 

AT ACOTAP 

BS LAGS IE 

CR CC 

DB DLIM 

BE DEFPNT 

DF DFRAME 

DK LDCNTR 

BL DLANDH 

DO DORBIT 

BR DRATE 

DS DSRATE 

DT DEFTAP 

DV^DVERS 

EK ERADIR 

ED EDAY 

EL DELMRK 

EX EXITWL 

El ENHOOl 

GL LNDMRK 

IF LFRAME 

IT LISTAP 

kS SETKEY 

LF FINFRM 



LK LISDIR 
LD LISLMK 
LT FINDTP 
Nc- USECUT 
MF USEFIL 
MG USEGRA 
ml USELAP 
Mr USERAB 
MS USESPA 
MA NAVSYS 
NC NAVCHG 
NT XFORMS 
PL SURPLT 
OM MINBND 
OP PEAKCO 
OS SURFCD 
RD ERTSLD 
RF RESFRM 
RK RESTDK 
SF SETF 
SK SAVEDK 
SS STATUS 
TB DEFMET 
TO NR2DEC 
TE FRMEAR 
TS EARSAT 
TT EARTAP 
WC WCELL 
WD FILDIM 
ftE FILELE 
WI BAKGND 
WL FILLIN 
WP FILWGT 
WT WHATAP 
XF LDCNTV 
^a^annot 

?D ANNDIS 
2E ANNINT 
^MiPLTMAP 
22 LOGDUM 
END 
SEOJ 



SJOB LDCNTV 
5REW,5 
$A$SIGM>6»0 
^INCLUDE SLEEP 

^include hio 

^INCLUDE IK 
^INCLUDE LTV 
^INCLUDE TVD 
^INCLUDE WAIT 

Jbinclude age 

^INCLUDE CSF 
^INCLUDE LOOKUP 
S^INCLUDE STAGE 
^INCLUDE TVSAT 
$ INCLUDE 10 
SINCLUDE no 
SKFORTRAN 

■ - ■ dimension J( 672)“, K( 1120), L( 672) " 

DIMENSION MT( 14 ) , MF< 14 ) , MD( 14 ) 
DIMENSION MESI(8);MESO(10),MFSJ(10) 
DIMENSION MESE(24) 

DIMENSION ITAB(256) 

DIMENSION IGS(IO) 

C0MM0N/SYSC0M/NDAT{ 100 ) 

DATA MFSI/6HLDCNTV/ 

DATA MFS0/6HDFRAME/ 

DATA MFSJ/6HLFRAME/ 

DATA MFSF/30HTV LOAD REQUEST REJECTED 
DATA IGS/0,1,2,4,8,16,32,63,0>0/ 

CALL lO(MESI) 

DO 98 JA=1,256 
98 ITAB( JA)=IK( JA/4) 
e SOURCE AREA 

IA=MEST(1) 

CALL AGE(IA) 

G FRAME 

IF=MESI(2) 

MESJ(3)=IF 
MES0(3)=TF 
C REPEAT FACTOR 
NR=MESI(5) 

G RELATIVE START 
C COUNTING FROM 0 
IL2^MESI(3) 

ITLS=1 

IF( IL.GE.O)GOTO 93 

ITLS=1-IL 

IL = 0 

93 IE=MEST(4) 

ITES=1 

IF( IE.GE.O)GOTO 94 

ITES=1-IF 

lEiO 

94 I TLS= ( I Tl S-l )^»NR + 1 
ITES=(ITFS-1)*NR+1 

. IFdA.I T.DGOTO IQO 
IF(IA,GT.8)G0T0 100 



C GET AREA DIRECTORY ENTRY 
CALL 0PN(5) 

CALL RFW(5) 

CALL REAnW(5^112> J) 

IP=14»(1A-1) 

DO 1 JA=1,14 
IP=IP+1 

1 MD(JA)=J(IP) 

CALL C10S(5) 

IF(MD(1) ,LE.O)GOTQ 100 

c perform tape lookup 

CALL L00K(2,MD(8) ;mT) 

IF(MT(1) .EQ»0)GOTO 100 

e LOOK UP frame entry for projeot protect key onl¥ 
GALL L00K(3, IF, MF) 

IF(MF(14) *EO.O)GOTO 2 
IF(MF(1 4 ) .EQ.NDATd^ >GOTO ? 

IF(NDAT(95) .LT.O)GOTO 2 
CALL SO(MESO) 

GOTO 100 

e TAPE 

2 CONTINUE 
MES0(4 ) =MT ( 1 ) 

c Starting line of tape 

ILF = MTM) 

C STARTING LINE OF AREA 
ILF=MD(3)-ILF+1 
C OFFSET 

ILF= ILF*MD(5 )« IL 
MES0(5>=ILF 
C SAME WITH elements 

IEP = MD(4)-MT(5)^-1+MB(6)*IE 
MES0(6)=IEF 
C NUMBER OF LINES 

MESO{9)=500/NR 
G TV RELATIVE 

MES0(7)=ITLS 
MES0(8)=ITES 
C DO ACTUAL L OAD 

MSEC=100n*( I A-l)+2*fL 

e NSEC IS pointer TO 5 LINE AREA ON DIGITAL DISK 
NSEC=MSEC 
GALL TVKl) 

DO 96 JA=1,700 

96 L(JA)=n 
JAcITLS-1 

IF( 1TLS.FQ.1)G0T0 97 
DO 95 KL=1,JA 
95 CALL TVDIL) 

C KL IS SCREEN LINE POINTER 

97 KL=ITLS 
CALL OPN(4) 

10 CALL SCRA(4,NSEC) 

CALL READW( 4,1120;k^ 

DO 11 JA=1,5 
JB:=224«( JA-D + l 




GALL CRAGK(672.K( , J) 

C DC IS SOURCE ELEMENT ROfNTER 
JC^IE 

C kT IS SCREEN ELEMENT ROfNTER 
KT=ITES-1 

14 DO 13 JD=1,NR 
KT-KT+1 

IF(KT.CT.700)GOTO 15 
J2=J( JC)+1 
13 L(kT)=ITAB( JZ) 

JC=JC+1 

IF( JC.CT.672)G0T0 15 
GOTO 14 

19 DO 12 JB=1,NR 
GALL TVD(L) 

KL=KL+1 

IF(KL.CQ,500>GOTO 90 
12 CONTINUE 
11 CONTINUE 

NSEC=NREC+10 

IF (NSEC . GT.MSEC+999^G0T0 90 
GOTO 10 

96 DO 91 JA=4,10 
9i MESJ(JA)=0 
CALL TVE 
CALL SO(MESO) 

CALL SO(MESJ) 

CALL EXIT 

leo CALL TO(MESE) 

CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

Name=ldcntv 

ASSIGN 2=REEI S, 3=FRAMES; 4aDK, 5=DKDI R 

Begin 

$EOJ - - * 

Seoj 

^FfN 


NEXT JOB 



PORN 


data 101 
Data o 
PIPK data *0202 

data 112 

PIBLOC 

POPK DATA *0201 

Data 112 

DAC POB 
PoB Blok 112 

POBE DATA -1 

BnT data 90 net AVAjlABlE TTY mESSAG^^S 

pCNj data 390 

» 

iNTRTN TMA idle 

BOP INTEX 
T2M idle 
THE *200 
T2A 
TD4 

INTEX BUC 0,J 

I^AfTL DHM GOT 

BN2 ACTIV 
C2M IDLE 
BNN ACTIV 

♦ loo MILLISECOND WAIT 

« <CALL TO interval TIMEr MULTIPLEXOR) 

TLO INTRTN 
TOI 100 
BLU *30 
TLO IDLE 

« WAIT TILL activity OR TfMEOUT RESETS IDLE FLAG 
BLU liWAIT 

♦ CALL TO SYSO 

ACTIV BLU *34 

TZM GOT 

♦ INVOKE tty IF CALLED FOR 

TESTTY TMA IDLE 

KOB *212 
BNH . TWSC 
BLL SCALLER 
DAC TTY 
DAC TTYP 
TZM IDLE 
TWSC DZM idle 

BOZ PINCK 
BON PINCK 
TMA IDLE 
TAM MES 
TLO CNTRL 
BLU *36 
AUM GOT 
PINCK TLO PIB 

TFM IDLE 
BLU *27 
TKM PIBLOC 
TMA 0,K 




602 PNOI 

* dont put rpcord in que it it is full 



TMA 

PCNT 


SOA 

1 


BON 

PNOI 


TAM 

PCNT 

ft 




TLO 

PIP 


BLU 

SI/O 


TLO 

PIPK 


BLU 

SI /o 


TNK 

’ 0200 


BLU 

SI/0 


T2M* 

PIBLOC 


BLL 

SBUMP2 


DAC 

PIRN 


AUM 

GOT 

PNOI 

GZM 

POBE 


BOZ 

INCK 


TMA 

PIRN 


SMA 

PORN 


BOZ 

INCK 


TLO 

POP 


BLU 

SI/O 


TLO 

POPK 


BLU 

si/'o 


TNK 

• 0200 


BLU 

SI/O 


BLL 

SBUMP2 


DAC 

PORN 


TZM 

POBE 


AUM 

GOT 

INCK 

ezM 

TBF 


BOZ 

NOI 

INPUT 

BUFFER IS fill 


TLO 

IP 


BLU 

SI/0 


TLO 

IPK 


BLU 

SI/O 


TNK 

♦0200 


BLU 

SI/O 


EMPTY IT 


* lRN=Mon( IRN+1,100) 

6LL S8UMP 
DAC IRN 
THM I8F 
AUM fiOT 

* WAIT IF OUTPUT BUFFER IS FULL 

NOl 02M OBE 

602 CALTTO 

» WAIT IF BUFFER IS EMPTY BUT NO RECORDS WAITING 50 GO OUT 
TMA IRN 
SHA ORN 
B02 WAITL 
« FILL OUTPUT BUFFER 
TLO OP 
BLU SI/0 
TLO OPK 
BLU SI/0 




TNK *0200 
BLU SI/O 
BLL SBUMP 
DAC ORN 

THM OBE' * ’ ■ ' * ~ 

CAL'TTO TMA* ASRFLG 
bon WAITL 
TLO TTY8 
BLU SI/O 
TFM OBE 
AUM CNT 
8UC WAITL 

* Bode linked ry blu from programs which will pill 

PILLP TJA 
TKE 

BHM POBE 

BNN »-»-3 

TLO POBE 

BLU !KWAIT 

HXI 

TAJ 

TEK 

TMA »200 

UIl 

RXI 

AUM PCNT 
TNI 1.12 

PLOOP TMA P0B+112»I 
TAM 0,K 
AOK 1, 

BWI PLOOP 
THM IDLE 
TFM POBE 
BUC RET 
PILLI TJA 
TKE 

« WAIT IF TOO many RECORDS IN OUF 
6HM CNT 
BNN *+3 
TLO CNT 
BLU TWAIT 

* wait if buffer ALREADY PULL 

BHM IBF 
BNN «+3 
TLO IBF 
BLU SWAIT 

* FORBID DISPATCHER 

HXI 

TAJ 

T F K * 

TMA *200 

UIl . _ 


RXI 

TMA 



SOA 1 


AM CN 


INPUT BUFFER 



TFM IBX 
T2M IDLE 

* COPY USERS OUTPUT TO IB 

TNI LNG 
ILOOP TMA 0,K 

TAM IB+LNG,I 
KOK 1 
BWI ILOOP 
BUG RET 

« ENABLE DISINT AND GO BACK 
Ret TMA '200 

1 

^^VE '200 

TZA 

TD4 

BUG 0,J 

* PLUG linkages INT BLO AREA AND DO TILE OPEN 

START TMA INSTI 

TAM* L37 
TMA INST3 
TAM* L26 
TNK *0107 



Blu 

SI/0 


TNK 

'0207 


BLU 

SI/0 


WIT 



TOT 

100 


RCT 



BLL 

SGALLER 


DAC 

PRINT 


DAC 

PRINTP 

MAIN 

TMA 

INST 


TAM* 

INTRPT 


TMA 

LAVEL 


UAl 



UEl 



Bug 

WAITL 

LAVEL 

DATA 

B17 

INTRPT 

DAC 

•111 

INST 

RSL 

STVIR 

INSTI 

BUL 

FILLI 

INST3 

BUL 

FILLP 

L37 

DAC 

'37 

L33 

DAC 

*33 

L26 

Dag 

*26 


ENDS 

START 

SCATALOG 



TYPE=RFG,PRIV 
NAME=0PCDM,2 
ASSIGN 1=1,2=0PMES 

Be 



GIN 



SJOB HIO 
SBA$SIGN,6,0 
iFA$SIGN,5#LR 
SREW,5 

Sassemb 



IDEN 

HIO 


XDEF 

HIO,H 

* 6ALLING SEQUENCE ' 

lOCW 

OCW 

' 00 

lODW 

ODW 

•00 

HIO 

GAP 

1 


TMA 

0,1 


DMA 

lOCW 


TAM 

PLUGl 


TMA 

0, I 


DMA 

I ODW 


TAM 

PLUG2 


GAP 

t 


HXI 



TMA 

0, I 


♦ NEGATIVE CW IMP DONT SEND 



BON 

♦ + 3 

PLUGl 

4 # 



BN2 



GAP 

1 


TMA 

0,1 

PLU62 




BN2 


... 

RXI 

-* •- 

SFILEMA 

buc 

Ends 

0, J 

ESTAR,9, 

HIO,0 

,1,0 


EXIT 

SEOJ 


DM 




JOB AGE 
ASSIGN 5 LR 
REW,5 

ASSIGN, 6, 0 
FORTRAN 

subroutine AGE(N) 
COMMON/SYSCOM/NDATdO 
DO 1 J=l,8 
K=J+82 

NDAT(K)=NDAT(K)+1 

K=B2+N 

NDAT(K)=0 

return 

ENDS 

fLEMA 

Tab, 5, AGE, 0,1, 0,4 
fT 


Sjob getdam 
!KASSIGN>6» 0 
SASSIGN 5 LR 
5REW,5 

Sfortra 

SUBROUTINE GETGAMdD, I T, BET A , BOOT ) 
DIMENSION J{560) 

DIMENSION MER{24) 

COMMON/SYSCOM/NDAT ( 100 ) 

DATA MFR/30HNO GAMMA SHIFTS AVAILABLE 
DATA NSECT/-1/ 

NSEC=5*M0D( ID, lOOO 
IF(NSEn.EQ.NSECT)GOTO 90 
IF(NDAT(92) ,LT.O)eALL WA I T ( ND AT ( 92 ) ) 
NDAT(9?)=-1 
GALL 0PN(9) 

CALL SCRA(9,NSEC) 

CALL RFAOW(9,560, J) 

CALL GL0S(9) 

NDAT(92)=0 
98 NSECT=NSFC 
BETA=oV 
BDOT=OV 
IHIT=0 

DO 1 JA=t,560,7 
IF(J( JA) .NE. IDIGOTO 1 
KIND=J( JA+6)/4096 
IF(K 1 ND.NE , 14 )GOTQ 1 
IHIT=IMIT+1 
IF( IHIT .GT .1)60 TO 60 
BETA=J(JA+2) 

BD0T = J( JA + 3 ) 

80 IF( J( JA+1 ) .GT. IT)G0 TO 1 
BETA=J( JA+2) 

BDOT= J( JA+3) 

1 CONTINUE 

IFHHIT .FQ . 0 )CALL TQ(MER) 

BiETA = BFTA/100 , 

8DOT=BnOT/100. 

RETURN 
ENDS 
SFTLEMA 

ESTAB/5,GET6AM.0,1,0,4 
EXIT 
SEdJ 



.raocjcjorrnncjrsoo nooooracnncjoo-cjcj 


SJOB TVS^T 

5ka$sign,6,o 
^ASSIGNi5, LR 
SREW,5 
SiOPTION 9 
SrORTRAN 

subroutine TVSAT(rF?ILT,IET,lL,IE,IT,ID) 
INPUTS 

IF -- frame number 

ILT -- TV CURSOR LINE 
lET TV CURSOR ELEMENT 

OUTPUTS 

IL -- SSCC LINE 

IE -- SSCC element 
IT — frame start time 

Ml IS REEL DEE 
REEL 
YYDDD 
HHMMSS 
LS 
ES 

M2 IS FRAME DEF 
FRAME 
REEL 
REC ST 
ELE ST 
TVL 
TVE 
KAO 

DIMENSION Ml ( 14 > , M2(14 ) 

DIMENSION NERl(24l,NER2(24) 
GOMMON/SYSCOM/NDAT ( 100 ) 

DATA NFR1./30HFRAME NON-EXIST 
DATA NFR2/30HTAPE NON-EXIST 
CALL L00K(3, I F, M2) 

IF(M2(1) .EO.O.OR.M2(2) .E0.0)G0 TO 800 
GALL LnOK(2iM2(2 ) ;m1 ) 

IF(MKl) .EQ. O.OR*M1(2) ,EQ* 0)G0 TO 900 
G YYDDD 

ID=M1(2) 

G HHMMSS 

IT=M1(3) 

C LINE 

IL=ILT-M2(5) 

IL = 2*I( 

ISI2=M?(7) 

LINST=M1 (4 ) 

LINSTn. INST + M2(3)-1 
HAG = 1 

IFdSI? J_T.116)MAG = 3 
IF( ISI?.I T.56)MAG=6 
IFnSI?.GT.115)MAG = i 
• IL=IL/MAG+LINST 




o n rs 


C ELEMCVTT=M1(5)-1+M2(40 
IE=IET-M?(6) 

IEi6»IF 

IE=IE/MAG+IEST 

RETURN 

800 gall TD(NERl) - . 

GOTO 1000 

900 CALL T0(NER2) 
loop IL=0 
1E = 0 
IT = 0 
ID^O 

return 

END 

SUBROUTINE LOOK ( LUN ; KEY , MES ) 

LOOKUP AND SAVE 

LUN=2 == REELS 
LUN=3 == FRAMES 
DIMENSION MES(14);m(300),II 0C(3) 
COMMON /SYSCOM/N DAT ( 100 ) 

DATA II.On/0,94,93/ 

DATA N/0/ 

IF(NDAT(54) ,NE.0)N=e 
if(n.eo.o)go to IQO 

DO 1 J=1,N,15 
IF(M( J^-1) .NE.KFY)G0 TO 1 
IF(M( J) .NE.LUN)GO TO 1 
GO TO 200 
1- CONTINUE 
180 IF(N«E0.300)N=0 

M(N+1)=LUN 

IFILUnVnF. 2 . AND. LUN. NE. 3 ) STOP TVSAT 
I=ILOC(LUN) 

IF(NDAT( T ) .LT.0)CALL WAIT(NDAT( I ) ) 
NDAT ( I ) =-l 

CALL L00KUP(LUN,KEYFM(N+2) ) 
NDAT(I)=0 
J = N + 1 
N=N+15 

200 DO 201 1=1,14 
J = J-»-l 

201 MES(I)=M(J) 

RETURN 

ENDS 

SFfLEMA 

ESTAB,5,TVSAT,0,1,0,4 

EXIT 

$E0J 



SjOB lookup " 

Sassigm 6 0 

iiOPTIONS 8 23 
S^ASSIGNI 5 LR 
5REW,5 
^FORTRAN 

SUBROUTINE LOOKUP { LUN, KEY , MUNG ) 
d FOR looking up an ENTRY IN FRAMES OR REELS EILE 

DIMENSION MUNG(14^ 

C0MM0N/L0KP/NSEC#MUN, JSEC( 112) 

CALL OPN(LUN) 

CALL REVHLUN) 

NSEC=-1 

MUN=LUN 

G NUMBER OF ENTRIES IN FILE 
N = UARY(D-1 

C distance FORM START OF FILF TO FIRST DATA ENTRY 

I0FF=JARY(2) 

DO 1 J=l,14 

1 MUNG(J)=0 
DO 2 J=10,N 

IF( JARY( J) .EO.KEYlGO TO 3 

2 continue 

GO TO ion 

3 lSEC=IOFF+J/8 
IREL=1+14*M0D( J,81 
CALL SCRA(LUN, ISEC) 

CALL RFADW (LUN, 112, JSEC) 

LST=IRFL-^13 

JA = 0 

DO 4 J=IREL.LST 
JA=JA+1 

4 MUNG( JA ) =JSEC( J) 

100 CALL CLOS(LUN) 

RETURN 

END 

FUNCTION JARY(J) 

e FUNCTION JARY (J) IS THE JTH ENTRY IN THE FILE tNDEi^ 
C PERFORMS 10 IF NECESSARY 

COMMON/LOKP/NSEC, HUN, JSEC (112) 

MSEC = ( J-D/112 
MWDR=MOD( J-1,112) fl 
IF(NSEC .FQ . MSEOGQ TO 1 
NSFC=MSEC 

CALL SCRA(MUN,MSEC) 

GALL RFADW (MUN , 112, JSEC) 

. i JARY = JSEC(MWOR) 

RETURN 
ENDS 
Sftlema 

ESTAB, 5, LOOKUP. 0,1, 0,4 
EXIT 

...seoj 




^JOB VERS 
!BR6W,5 
i^INCLUDE 10 
^INCLUDE Flo 
S^ASSIGN 6 0 

SfDrtran 

DIMENSION J(112) 

DATA J/112»0/ 

1 F0RMAT(10A3> 

READ(7,1) (J(L),L=t,lO> 
CALL 0PN(2) , 

CALL SCRA(2,0) 
gall WRITW(2,112, J) 
GALL C\ 0S( 2) 

GALL EXIT 
ENDS 
^FILEMA 
EXIT 

^ASSIGN 2=VERS 
SCATGO 

MCTDAS VERS S2.10H1.00 
_JE0J - 



^RjDB tty 

S ASSIGN 6r0 
$REW, 5 

5lNCLUDE»CSr 

sinclude^stage 

$include,io 

sfortran 

SUBROUTINE QUITS 

COMMON/S YSCOM/ND AT ( iOO) 

CALL EXIT 

RETURN 

END 

SUBROUTINE SOUASH(lS,ID) 
DIMENSION IS(24),tD(8> * 

CALL PACK<24, is. ID) 

RETURN 

END 

SUBROUTINE make(i;m;n,l) 

DIMENSION M(24) 

DATA MIN/*55/ 

DATA inOM/MO/ 

N = 6 
L = B 

ISGN=1 

1 IF ( I .GT. 60 )GO TO 106 

IF(M( I) ,FQ.MIN)G0 TO 900 
IF(M(I),FO.ICOM)GO TO 100 


160 

lai 

960 


lil 


KK = M( I )-48 

IF(KK.LT. 0 .OR.KK .GTV9)L=1 
N=10*N+KK 
1 = 1+1 
GO TO 1 
1 = 1 + 1 
n=n*isrn 

RETURN. 

1 = 1+1 

IF(N.Nf^.O)L = l 
ISGN=-1 
GO TO 1 
END 

DIMENSION NE5(24) 
dimension LIS(300) 

DIMENSION MES(27> ;m(60) 
DIMENSION NERN{2) 

DIMENSION NER(2) 
GOMMON/SYSCOM/NCOMI 100) 

DATA NF5/30HMUST LOGGIN FIRST 
DATA NFR/6HERR0R / 

DATA NFRN/6HCRAP: / 

DATA ISTAR/3H«tt»/ 

DATA IC0M/3H..,/ 

DATA IPLK/MO/ 

CALL CRACKd. ISTAR, tSTAR) 

CALL CRACKd. ICOM; IGOM) 

CALL ini(64»l+d) 

CALL I0(64»1+1,27;mES) 



CALL I01(64»l) 

CALL ini(64*l+»10) 

CALL CRACK(60,MES;Mr 
CALL 101(64^^2+ V7) 
call In(64e2+ » 17, 0, 0 ) 

CALL In(64i»2 + 1,300,LIS ) 

CALL 101 (64*2-<- ’ 10^ 

K0 = 0 

DO 20 J=l,300,3 
IFCME'^d) .NE.LIS( J) )G0 TO 20 
KO = J 

M1=LIS(J+1) 

M2=LIS(J+2) 

20 CONTINUE 

1F(KO)302,302,301 

301 CONTINUE 

G FORCES LOGGIN PROCEDURE 

IF(NCOMd) .EQ.O. AMD, K0.NE.1) CALL TQ(NE5) 
IF<NC0M(1) .EQ.0.AMD;K0.NE,1)CALL QUITS 
IF(M(3) .FO. ISTAR)GO TO 100 
IF(M(3) .EQ. IBLK) GO TO 200 
300 CONTINUE 

MES(1)=NFR(1) 

MES(2)rNFR(2) 

303 CONTINUE 

GALL SDUASH(M, MES( 3) ) 

CALL TD(MES). 

CALL QUITS 

302 CALL OC(MES) 

CALL QUITS 

160 MES(l)=Ml' 

MES(2)=M2 

CALL SOUASH(M(4) ,MES(3) ) 

CALL SO(MES) ^ 

GALL QUITS 
200 MES(1)=M1 

MES(2)=M2 
1=2 

DO 201 J=3,10 

CALL MAKFn,M(3),M,L) 

IF(L.NF,0)G0 TO 3Q0 
261 MES(J)=N 

CALL SD(MES) 

- CALL QUITS 
ENDS 


iASSEMB 

XDEF 

OGfOC 

OC 

GAP 

1 


TJM 

RET 


TIK 

BLU 

•25 


BUC» 

RET 


RET *** 

ENDS 

^CATALOG 

TYPE=FQ 

Nahe=tty 

Assign. i = i,2 = namlis 

NOMAP 

BEGIN 

5E0J 




li^JOB NR2L 

SASSIgN/5#LR 

^assign, A, 0 

5REW,5 

iKrORTRAN 

SUBROUTINE NR? DEC ( L i NE / L # IFRROR) 

DIMENSION L I NE ( 2 ) ; I iB( 96 ) , I (28) 

DATA KS,I EVELB,LEWELT, ILOOK/>10,75,lOO,85/ 
IB(N) =1 IR(N) 

LASBIT=0 

lERRORrO 

G kludge to TRY TO GET MORE DECODES 

G CANT USF MORE THAN LINE AND TIME THEN 
IL00K=72 
DO 2 1=1. ILOOK 
I2=2«I 
Il=I2-j 
N=LINE(I1) 

M=LINE(I2) 

NN = 1 
MM = 1 

IFCN.LT J EVELT)NNiQ 

IF(M.LT.LEVELT)MMiO 

IF(N,GT.I.,EVELB,AND.N.LT.LEVELT)NN = MM 

1F(M.GT.IEVELB.AND.H,LT .LEVFLT )MM=NN 

IF(MM.FQ,nN)60 to 1 

IERROR=l 

RETURN 

1 J = 1 

IF<LASRIT;E0.MM) J = G 

nB(I)=J 

LASBIT=MM 

2 CONTINUE 


= 2*IR(35 + KS)-^rB(36 + KS) 

= 8*IR(37 + KS)+'I*IP(38 + KS)+2*IB(39 + KS) + ISH0 + Ks) 

= 8<»IR(41 + KS)+4*iP(42 + KS) + 2*IR(A3 + KB>-^lR{44 + Ks) 

= 8ttIR(A5 + KS) + 4»fP(46'^KS)-»-2*IR(47 + KS)+lR(48 + Ks) 

= 2* I R ( 51+KS ) '»■ I B ( ^2 + KS ) 

= 8MR(53 + KS)+4*IB(54 + KS)+2*IB(55-^KS)^IBJ56 + KS) 

= 4*IR(58 + KS)+2*fB(59-i-KS) + IB(60 + KS) 
=8*IR(61+KS)+4«IR(62+KS)+2«IB(63+KS)+IB(64+Ks) 

= 4^^IR(66•^KS)+2^^fR{67 + KS> + IB(68 + KS) 

) = 8<^IB(69 + KS/+4 + iB(70 + KS) + 2«lB(71 + KS)+lB(72-fk<?A 
>=4*ib(25+KS)+2#TB(26+KS)+IB(27+KS) 

)=2*IB(75 + kS) + IB(76-«-KS) 

J=l6MB(8l + KSU8*IB(82 + KS)+4*IB(83 + KS)+2*IBt844:KS) + lR(fi5 + Kq) 
• =4.IS(28*KS)-2MB(29*KS)M8(30^KS) ‘ + ♦ I B ( 85*KS ) 

>=2*lB(77 + KS)-flB(78 + KS) 

i=4.IB(31*KS)t2*IB(32+KS)+l0(33tKS) IBIVU+KS) 

'=2*IB(79+KS )+ Ig(80+KS) 

= iBa5+KS) ! / Q 

= 18(16. KS) / 

= TB(17.KS) / 



L(24 )=4«TB(18+KS) +2*IB(19+KS)+IB(20+KS) 

L(25) =8«l B( 21 + KS) +4* I B ( 22+KS ) +2* I B ( 23 + KS ) + 18(24 tKS ) 
L(26)=IB(73+KS) 

L(27)=TB(74+KS ) 

L(28)=TB(65+KS) 

RETURN 

5NB 

SUBROUTINE N92L(LtNE, ITIME) 

DIMENSION! J(IOO) ,K(300 )>L(28) 

CALL -FAnW(2,100, J) 

CALL CRACK(300, J,K) 

CALL NR2DEC(K,L/ IE) 

8 


LINE-1000«L(1)+100«L(2)+10*L(3)+L(4) 

8 

96 ITIME = 10<^ITIME+L( JJ) 

RETURN 
1 LINE=0 
■ ITJME=n 
RETURN 
ENDS 
SriLEHA 

ESTAB>9,NR2L,0.1,0.4 

EXIT 

SEOJ 



^JOB FRAMES 
^OPTIONS 0 8 23 
$REW,5 
SaSSIGN 6,0 
^INCLUDE 10 
SINCLUDE no 
^INCLUDE CSF 
^FORTRAN 

DIMENSION J(1120) 
DO 10 K=1,11?0 
10 J(K)=0 

1 =10 

T-LIII 0PN(2) 

2 > 

CAFL III-IIIIIIW(2,1120; 
CALL CI 0S(2) 

CALL EXIT 
ENDS 

SaSsign 2 frames 

SCATGO 

_ ___ 






Sjob hlandm 
%HEV\,5 
«A$SIGN,6.0 
^ASSIGN 2=LANDMA 
SINCLUDE no 
SINCUUDE 10 
SFORTRA 

dimension JDIR(560) 
data jniR/560^^0/ 

CALL 0PN(2) 

N=e 

DO 1 J=1.100 
CALL SrRA(2.N) 

CALL WRI TW(2»560, JDIR) 
1 N=N+5 

CALL EXIT 
ENDS 

SCATGO 

JEOJ .. - - - 



SjOB REELS 
^OPTIONS 0 8 23 
i&REW,5 
^ASSIGN 6,0 
^INCLUDE 10 
^INCLUDE FIO 
5INCLU0E CSF 
^FORTRAN 



DIMENSION 

J 


DO 1 

0 K = 1 

, 1 

19 

J(K) 

= 0 



J(l) 

= in 



GALL 

OPN( 

2) 


CALL 

RPW( 

2) 


CALL 

WRIT 

W( 


CALL 

CL OS 

(2 


CALL 

EXIT 



ENDS 



«A$S 

IGN 2 

REFLS 



SCATGO 
IBEOJ . 


( 1120 ) 
120 


2,1120; J) 
) 





SJDB KLUDGE 
5ASSIGN 6 0 
SREW>5 
^FORTRAN 

SUBROUTINE DOiraUNO 
DIMENSION J(112) 

CALL OPN(LUN) 

CALL RFW(LUN) 

CALL RFAnW(LUN,ll2,U) 
J(2)=10 

CALL SnRA(LUN,0) 

CALL WRITW(LUN,llt,Cn 
CALL CLOS(LUN) 

RETURN 

END 

DO 10 K=2,3 
19 CALL DOIT(K) 

CALL EXIT 

■ ENDS •• 

SINCLUDE 10 

SINCLUDE no 

ASSIGN 2=REELS»3=FRAMES 

SCATGO 

SASSIGN 6,1 

SEOJ 



!8J0B SETKBY 
SASSIGN,6,0 
il^REW,5 

^INCLUDE CSF 
^FORTRAN 

DIMENSION MES(IO) 
GOMMON/SYSCOM/NDAKiOO) 

DATA MPS/6HSETKEY/ 

GALL lO(MES) 

KEY=MES(1 ) 

KSTATrMES ( 2 ) 

if(kstat.ne.i , and;kstat.ne, 0 ) 

IF(KEY.LT.O.OR,KEY.GT.22)CALL 

N = 1 

IF (KEY.GT.0)N=2«»KEV 
M=^77777777. XOR.N 
NDAT(9'5) = NDAT(95)VAND.M 

N=N*KSTAT 

NDAT(95)=NDAT(95)70R.N 

CALL EXIT 
ENDS 

I8CATALOG 

TYPE=FG 

^ame=setkey 

feEGiN 

lEEOj 


all abort 

ABORT 



SjOB DPRDJ 
iRASSiGN 6 0 
5SINCLUDE no 
^include 10 

^FORTRAN 

DIMENSION N(112) 

DATA N/112*0/ 

CALL 0PN(2) 

CALL SCRA(2,0) 

1 = 0 

1 F0RMAT(I5,1X#08) 

10 READ(7.1) II, 12 

IF( I1.FQ.9999)G0 TO 100 
1 = 1+1 

J=2«(I-1) +1 

N(LI) = I1 
N(U+1)=I2 
GO TO 10 

100 CALL WRITW(2,112,N) 

CALL EXIT 
ENDS 

^ASSIGN 2 PROJS 
SCATGO 

IDOO OOG00002 
1210 00000002 
1220 00600002 
1230 00000002 
1250 00000002 
1500 00000002 

i9io oooooono 

1520 00000002 
160G 00000002 
1610 00000002 
1620 00000002 
1630 00000002 

1640 00G00002 
1600 00000002 
1900 00000002 
3^10 00000002 
4439 00000002 
5600 000000O2 
00 00000002 
6if00 00000002 
6900 00000002 
6999 40000000 
9999 00000000 
$E0J 



SJOB DEFTAP 
SPEW, 5 

iSiNCLUDE CSF 
^INCLUDE FIO 
SINCLUDE 10 
^ASSIGN 6 0 
S^INCLUDE WAIT 
^FORTRAN 

DIMENSION NAM(2) 

DIMENSION JDIR(1120^ 
dimension MES(8) , JSEC(112) 
DIMENSION MER ( 24 ) ; NER ( 24 ) 
COMMON/S YSCOM/ I P( too ) 

DATA MPR/30HN0T AUTHORISED TO DT 
DATA NFR/30HTAPE SEEL FILE FULL 
DATA NAM/6HDEFTAP/ 

GALL WA IT< IP(94) ) 

IP(94)=-1 
CALL 0PN(2) 

199 CALL RFW(2) 

CALL RFADW(2>1120; JDIR) 

1 MES(1)=NAM(1) 

MES(2) =NAM (2.) 

CALL IQ(MES) 

IKEY=IP( 95). AND* '40000000 
1F( IKEY.NE . 0) GO TQ 6999 
CALL CL0S(2) 

IP(94)=0 
CALL TQ(MER) 

GALL EYIT 

6999 IF(NAM( 1) .EO .MFS( t) OGO TO 299 
IF( JDIP( 1 ) .£Q . lOOQ ) GO TO 999 
KEV = KFIND( JDIR,MES(1 ) ) 

2 10^- 

CALL f G2E'- ( . /llKIIISTf'E ) 
IST=i+14*M0D(KEY.8) 

LST= IST+7 
DO 99 JAY=IST,LST 
INDX=1+ JAY- 1ST 
99 JSEC( JA Y )=MES( INOX) 

CALL SFRA (2, lO+KEY/8 ) 

CALL WRITW(2,112, JSEC) 

160 CALL $nRA(2,0) 

CALL WRITW(2ill20; JDIR) 

GO TO 199 
299 CALL Cr 0S<2) 

IP(54)=1 
IP(94 ) =0 
CALL EXIT 
999 CALL TO(NER) 

60 TO 299 
END 

FUNCTION KFIND( J,K) * ■ 

DIMENSION J(1120) , 



SJOB DFRjf^ME 
^ASSIGN 6 0 
iRREW,5 

^include CSF 
^INCLUDE FIO 

^include 10 
Jbinclude wait 
^fortran 

dimension NAM(2) 
dimension JDIR(1120^ 

DIMENSION MES(8) . JSEC( 112) 
DIMENSION NER(24);n'ERR( 24) 
COMMON/SYSCOM/NDATdOO) 

DATA NAM/6HDFRAME/ 

DATA NFRR/30HERR0R -- FRaMF LOCK 
data NFR/30HFRAME FfLE FULI 
CALL WA IT(NDAT(93^ ) 

NDAT(93)=-1 
CALL 0PN(2) 

199 CALL RFW(2) 

CALL RFAnW(2dl20; JDIR) 

1 MES(1)=NAM(1) 

ME$(2)=NAM(2) 

GALL ID(MES) - 

1F(NAM(1).EQ.MES(1))G0 to 299 
IF( JDIR(l) .EQ.lOOQ)Gn TO 999 
KEY = KFlNn< JDIR.MES(I) ) 

CALL SCRA ( 2.10+KEY/8) 

CALL RFAnW(2,112, JSEC) 
1ST=1+14*M0D(KEY,8) 

LST=lST+7 
NPiJSECC IST+13) 

6 PRIVILEDGEn PROJECT 

IKEY = NnAT(95),AND;MOOOOOOO 
IF(IKEY.NE.O)GO to 98 
C UNRESTRICTED FRAME 

IF(NP.FQ.0)G0 to 98 
e project MATCH 

1F(NP.FQ. IPR0J)G0 TO 98 
CALL TO(NERR) 

GO TO 199 

98 DO 99 JAY=IST,LST 
INDX=1+JAY- 1ST 

99 JSEC( JAY)=MES( INDX) 

CALL SCRA ( 2/10+KEY/8) 

CALL WRITW(2dl2, JSEC) 

180 CALL SCRA(2,0) 

CALL WRITW(2dl20;jDIR) 

GO TO 199 
299 CALL Cl 0S(2) 

C SIGNAL SYSTEM CHANGE WORD 
NDAT (54 ) -1 

C RELEASE FRAMF LOCK 
NDAT(93)=0 



CALL EXIT 
999 CALL TP(NER) 

GO TO ?99 
ENO 

FUNCTION KFIND(J,K) 
DIMENSION J(1120) 

IF( J(l) .EQ.10)G0 TO 100 

N=U(1)-1 

DO 2 L=10,N 

IF( J(U ,FQ.K)GO TO 200 
2 CONTINUE 
100 KFIND=J(1) 

J(KFINn)=K 

J(1)=J(1)+1 

return 

200 KFIND = I 
RETURN 
ENDS 

^CATALOG 

TYPE=FG 

Name=dframe 

«S$IGN 2=FRAMES 

Begin 

seoj 



%JOB WHATAP 
|REW,5 

^INCLUDE CSF 
^INCLUDE 10 

^include no 

i^INCLUDE WAIT 
5A$SIGN,6, 0 
^FORTRAN 

dimension JDIR(112 0KMES(8),mOUT(24) 
COMMON/TLIS/NL IS, NDAY( 1000) 
COMMON/SYSCOM/NDATdOO) 

DATA MFS/6NWHATAP/, 

NLIS=0 

CALL lO(MES) 

CALL WAIT(NDAT(94) ) 

ND'AT(94 ) = -l 
CALL 0PN(2) 

CALL RPW(2) 

CALL REAnW(2tll20; JDIR) 

N=JDIR(1)-1 

NSEC=JnlR(2) 

DO 100 J=10,N,80 
call SCRA (2 ,NSFC + J/8 ) 

CALL RFAnW(2,1120; JDIR) 

DO 100 K=l,80 
L=2+(K-1)*14 
100 CALL OUniRIL) ) 

CALL Cl 0S(2) 

NDAT(94 ) =0 

DO 200 J=1,NLIS 

ENCODE (72,222, MOOT )NDAY(J) 

200 CALL TDCMOUT) 

CALL EVIT 
222 FORMAT(IIO) 

END - ~ 

SUBROUTINE 0(N) 

COMMON/TI. IS/NL IS, NDAYdOOO ) 

IF (N,EO . 0 )RETURN 
IF(NLIS.N6,0)GO TO 1 
NLIS=1 
NDAY(1)=N 

1 DO 2 J=1,NLIS 
1F(NDAY( J) .EQ*N)RETURN 
IF(NDAY( J) .GT.N)60 TO 3 

2 CONTINUE 
NLiS = Nl IS + 1 
NDAY(NI,IS>=N 
RETURN 

3 DO 4 K=J,NLIS 
L=NLIS+J-K 

4 NDAY(L^l) =NDAY (L ) 

NL1S = NI lS + 1 
NDAY( J) =N 
RETURN 
ENDS 




^CATALOG 

TYPE=FG.PRI V 

NAME=WHATAP 

ASSIGN 2=REEIS 

feEGiN 

«E0J 

SSREW,5 

^INCLUDE FIO 
^INCLUDE 10 
SSINCLUDE CSF 
SASSIGN 6 0 
^FORTRAN 

dimension J(112) ,HFS(10) 
COMMON/SYSCOM/NDAK 100) 

DATA MFS/6HDVERS I 
CALL 0PN(2) 

CALL SCRA(2,0) 

GALL RFAnW(2/ll2,U) 

CALL SCRA(2»0) 

CALL lO(MES) 

DO 1 K=l»8 
1 J(K)=MFS(K) 

IF(NDATd) ,NE. 1520)GALL ABORT 
GALL WRITW(2,112, J) 

CALL C1.0S(2) 

CALL EYIT 
ENDS 

^CATALOG 
TYPE=FG 
NAME=DVERS 
ASSIGN 2=VERS 
BEGIN 

„5E0J 



$JOB RESFRM 
^ASSIGN 6 0 
lRftW,5 

SINCLUDE CSF 
^INCLUDE FIO 
^INCLUDE 10 
SINCLUDE WAIT 
^FORTRAN 

DIMENSION NAM(2) 

DIMENSION JDIR(1120) 

DIMENSION MES(8), JSEC(112) 
DIMENSION NERR(24) 
COMMON/SYSCOM/NDATdOO) 

DATA NAM/6HRESFRM/ 

DATA NFRR/30HERROR -- FRAME LOCK 
CALL WA I T <NDAT (93) ) 

NDAT(9v3) = -l 
CALL 0PN(2) 

199 CALL Rf^W(2) 

CALL RFAnw(2dl20; JDIR) 

1 MESCl )=NAM(1 ) 

MES(2)=NAM(2) 

CALL ID(MES) 

IF(NAM(1) .EQ,MES(t))GO TO 299 
IKEY^NDAT (95 ). and;' 40000000 
IF(IKEY.NE.O)GO to 98 
CALL TO(NERR) 

GO TO 199 
98 CONTINUE 
I1=MES(1) 

I2=MES(2) 

no 111 JA = It,i'2 
KEV=KF1ND( JDIR, JA) 

CALL SCRA (2, lO + KEY/8 ) 

CALL RFAnW(2,112, JSEC) 

CALL SCRA(2dO + KEY/8) 

IST=1+1 4*M0D(KEY,Q) 

JSEC( IST)=ME5(3) 

111 CALL WRITW(2dl2. JSEC) 

100 CALL SrRA(2,0) 

GALL WPITW{2>1120;jDIR) 

GO TO 199 
299 GALL CI 0S(2) 

NDAT(93)=0 
GALL EXIT 
END 

FUNCTION KFIND(J,K) 

DIMENSION J(1120) 

IF(J(1) .FQ.IOGO TO 100 
• N=J(1)-1 

DO 2 L=iO,N 

IF( J(L) .FQ.K)GO TO 200 

2 CONTINUE 
100 KFIND=J(1) 

J(kFINn)=K 

JU)=J(D+1 


+ 13 



t 


RETURN 

260 KFIND=L 
RETURN 
ENDS 

^CATALOG 

TYPE=FG 

NAME=RESFRM 

ASSIGN 2=FRAMES 

BEGIN 

SEOJ 



SJDB L06BUM 
SREW,5 
^INCLUDE 10 
SASSI6N 6 0 
^INCLUDE no 
S5INCLU0E CSF 
^FORTRAN 

DIMENSION HES(1120 ,M0UT(24) 
DATA MFS/6HL0GDUM/ 

CALL in(MES) 

IF(MES(1) .NE.9878980CALL EXIT 

CALL OPN( 2> - . 

CALL RPW(2) 

CALL RFAnW(2, 112, MES) 

DO 10 J=l,112;2 
IF(MES(J),EQ,0)GO TO 10 
F = MES( J + 1 ) 

F=F/60V 

ENCODE (72, 222, MOOT )MFS( J) ,T 
222 FORMAK ' PRO JECT » , I 5 ; ’ , ’/FS.^, ’ 
CALL TO(MOUT) 

16 CONTINUE 

DO 11 J=1,112 
11 ■ ME$(J)=0 

GALL SCRA(2,0) 

CALL WRITW{2,112,MES) 

CALL Cl 0S( 2 ) 

GALL EXIT 
ENDS 

SCATALOG 
TYPE=FG 
nahe=logdum 
ASSIGN 2=L0G 


MINUTES’ ) 



SjOB PRNDUf 
SREW>5 
^ASSIGN 6,0 
^INCLUDE CSF 
^FORTRAN 

DIMENSION MES(IO) ;NAM(2) 

DIMENSION MOUT(24) 

DATA NAM/6HPRNDUT/ 

1 MES(1)=NAM(1) 

ME$(2)=NAM(2) 

CALL IO(MES) 

IF(MESf D .EQ.NAMd )KALL EXIT 
J=MES(1 ) 

ENC0DE(7?,222,M0UT) (MES(K),K=2,J) 
CALL TO(MOUT) 

GO TO 1 

222 F0RMAT(7I8) 

ENDS 

^CATALOG 

NAME=PRNOUT 

TYPE=FG 

6EGIN 

SEOJ ' 




5 JOB eradIr 
S1REW,5 

Skinclude csr 

SiNCL DE 10 
^INCLUDE FIO 
SaSSIGN 6,0 
5F0RTRA 

DIMENSION MES( 10) ; JUI?) 
DATA MFS/6HERADIR/ 

DATA J/112*0/ 

CALL IQ(MES) 

GALL 0PN(2) 

CALL RPW(2) 

CALL WRITW(2,112, J) 

CALL C(.0S(2) 

CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAME=ERADIR 

ASSIGN 2=DKDIR 

BEGIN 

SEOJ 



SJOB NREbEC 
iSASSIGN,6#0 
SREW,5 
^INCLUDE 10 
SINCLUDE no 

^include stage 

SINCLUDE CSF 
^INCLUDE NR?I. 

SlMCLUDE FTIME 
SiNCLUBE ITIme 

Sfortra 

FUNCTION IDEC.(N) 

DATA I?/'60/ 

NN = N 

N1^MOD(N,10) 

- NN^NN/10 

N2=M0n(NN,10) 

NN=NN/1 0 
N3iM0D(NN, 10 ) 

N1=N1+TH 

N3=N3+I2 

N2iN2.SHlFT,8 

N3=N3.SHIFT*16 

IDEC-N1 ,0R,N2,0R *N3 

RETURN 

END 

DIHENSION Ml(24) ,M2(24) 

DIMENSION MES(8) 

COMMON /SYS COM/ I COM { 100 ) 

DATA M1/30HTAPE START TIME 

DATA M2/30H PERCENT SUCCESSFUL DECODES 

DATA MFS/6HNRZDEC/( 

CALL IO(MES> 

CALL 0PN(2) 

GALL RPW(2) 

IQ = 0 
ID = ~1 

LIMIT=mES(1) 

IF(LIMIT.GT.200C)LIHIT=2000 
DO 1 M=l, LIMIT 
IF(ICOMd) .EQ.0)GQT0 222 
CALL NR2L (LINE, ITM) 

IF(LINP.FO,0)GOTO 1 
I6=IG*d 
NID=LINE+1-M 
IF( ID.PQ.NID)GOTO 1 
ID = NID 

T=FTIMF( ITM) 

X=*6*F! OAT(LINE)/3600. 

T = T~X 

1T1=ITIMF(T) 

M1(5)=IDFC(NID) 

M1(10) = 1DEC( ITI.) 

Hl(9 )= IDFC< I TI/lOQO^ 

CALL TQ(M1 ) 



/ 

/ 



1 CONTINUE 
Y=LIMIT 
X=IG 
X = X/Y 
IX = 100<^X 

M2(l) = TDFCf IX> 

GALL TO(M2) 

222 CALL RFW(2) 

CALL CI.0S(2) 

CALL EXIT 

200 FORMAT! ’ FRACT I ON OF SUCCESSFUL DECODES = »,E5,3 
ENDS 

SCATALOG 
TYPE=FG 
NAKE=NRZDEC 
ASSIGN 2=11 
Deg IN 

seoj 



SJOB AGQTAP 
5ASSIGN,6,0 
5REW,5 

^INCLUDE FIO 
55INCLUDE 10 
^SlNCLUDE CSF 
^INCLUDE NR2L 
^INCLUDE stage 
SINCLUDE FTIME 

^include ITIME 
^i^FORTRA 

DIMENSION MES(IO) i'MOUTdO) ,MFR(2^ ) 
COMMON/SYSCOM/ICOMCIOO ) 

DATA MES/6HAC0TAP/ 

DATA M0UT/6HDEFTAP/ 

data MFR/30HNO SUCCESSFUL DECODES 

CALL lO(MES) 

CALL 0PN(2) 

GALL RPW(2> 

DO 1 J=1.1000 

IF( ICOM(I) ,EQ.0)GQT0 222 

CALL NP2I.(L, LT) 

1F(L.EO.O)GOTO 1 
T=FTIMF( IT) 

X=.6*FLOAT(L)/3600. 

T“T”X 

M0UT(3)=MES(1) 

M0UT(4 ) =MES(2) 

H0UT(5)=ITIME(T) 

M0UT(6)=!.-J + 1 

M0UT(7)=i 

MOUT(8)=0 

M0UT(9)=0 

MOUT(in)=0 

CALL SO(MOUT) 

ENCODE ( 72d 00, MEROMOUT 
GOTO 2 


1 

CONT 

INUE 

2 

CALL 

TO(MER) 

222 

CALL 

RFW( 2) 


CALL 

CL0S(2) 


CALL 

EXIT 

IGO 

F0RMAT(2A3,8I7) 


ENDS 

SCATALO 

Name=agotap 
TYPE=FG 
ASSIGN *2^:11 

Degin 

»EOJ 



S5J0B STATUS 
^ASSIGN 6,0 
$REW,5 

SINCLUDE CSF 
SFORTRA 

FUNCTinN IOCT(N) 

DATA M1,M2,M3/'7,»70, *700/ 

DATA I7/3H000/ 

= . AND.N 

N2 = M2 . AI^D*N 
N3iM3 . AND . N 
N2=N2.SHIFT«5 
N3=N3. SHIFT. 10 
IOeT=I? .0R.N1.0R.N2V0R ,N3 

, return 

END 

subroutine MAIN(N) 

DIMENSION N(2) 

DIMENSION MES(IO) 

DATA MFS/6HSTATUS/ 

CALL lO(MES) 

CALL PRINT(Nd) ) 

M = t 

1 MMil I <N(17) ,M) 

IF(MM.FO.O)RETURN 

MM^MM+16 

GALL PRINT(N(MM) ) 

M = MM 
GO TO 1 
END 

FUNCTION II(N,M) 

G STARTS AT LOC N LOOKING FOR WORD M 

DIMENSION N(2) 

I=t 

10 IF(N( I) .EO. M+128)GOTO 100 
IF( I .GT.SOOIGOTO 101 
I = i + 8 
GO TO 10 
180 11*1 

RETURN 
101 11=0 

RETURN . 

END 

SUBROUTINE PRINT(N) 

DIMENSION N(8) 

DIMENSION M0UT(24) 

DATA IR/3H / 

DATA N2/3H 00/ 

MOUTd ) =N(2) 

M0UT(2)=N(3) 

DO 1 J=3.24 
1 M0UT(J)=IB 

J=N(4) VshiFT.-18 

J1=J.AND.7 
J2=J. AND. '70 
J2=J2.SHIFT.5 
J=N2.0R. Jl.OR. J2 



M0UT(4)=J 

M0UT(5)=I0CT(N(4)/5i2) 
MODI ( 6 ) = T OCT ( N ( 4 ) ^ 
H0UT(8)=I0CT(N(6)/512) 
M0UT(9)=T0CT(N(6)) 
NNN=N( 7) 

M0UT(11 ) = IOCT( NNN/512) 
MOUT(l?)=IOCT(NNN) 
MOUT(14) = ioCT(N(8) ) 
CALL TD(MOUT) 

RETURN 

ENDS 

iBASSEMB ' - 

start bll smain 

DAC *201 
BLU $EXI 
ENDS START 

SCATALOG 

TYPE=FQ,PRIV 

NAME=STATUS 

Begin 

$eoj 



SJOB SETF 
3IA$SI6N,6, 0 
Shew, 5 

SSINCLUDE csr 
^FORTRAN 

DIMENSION HES(8) 

COMMON /SYSCOM/N DAT ( 10 0 ) 
DATA MFS/6HSETF / 

GALL IO(MES)- 
J = NDAT ( 56 ). AND V’ 377700 00 
J = J + MES( 1 ) 

NDAT(56)=J 
CALL exit 
ENDS 

^catalog 

TYPE=FG 

Name=setf 

BEGIN 

*PE0J 



«J08 DLIM 

SA$SIGN,6, 0 

^INCLUDE CSF 
iSrORTRAN 

DIMENSION MES(B) 
COMMON/SYSCOM/NDAK 100) 

DATA MFS/6HDLIM / 

GALL lO(MES) 

C COMER LIMIT+4096*LPPER LIMIT 

NDAT(57) =MES( 1) +4Q96^^MES( 2) 

CALL EYIT 

ENDS 

^CATALOG 

TYPE=FG 

Nahe=dlim 

DEGIN 

lEOJ 


Sjob drate 

lA$SIGN»6/0 

SREW,5 

^INCLUDE CSF 
^FORTRA 

DIMENSION MES(8) 

C0MM0N/SYSC0M/NDAT( 100) 

DATA MPS/6HDRATE f. 

CALL IQ(MES) 

e argument is number of frms per second to LOe 

IF(MESd) »GT,30)CALL EXIT 
iF(MESd) .LE.0)CALL EXIT 
X = MESd ) 

X=t./X 
X=X»1000 . 

ND5^T(5B)=X 
CALL exit 
ENDS 

^CATALOG 

TYPE=FG 

name=drate 

BEGIN 

SEOJ 



SJOB LOOP 

SASSIGN,6,0 

SREW,5 

^INCLUDE CSF 
SFORTRA 

DIMENSION MES( 8) # NAM( 2) 

COMMON /SYS COM/ N DAT ( iOO) 

DATA NA.M/6HLOOP / 

DATA MFS/6HL00P / 

CALL lO(MES) 

IF(NDAT(1) ,EO.O)CALL EXIT 
1 MES(1)=NAM(1) 

MES(2)=NAM(2) 

CALL ID(MES) 

IF^MESd) .NE.NAMCDKALL EXIT 

if(ndat(1).eo.o)call exit 

CALL SLEFP(N0AT(58)^ 
ITANDAT(57)/4096 
IB=NDAT(57)-4096«IT 
ID=M0D(NDAT(56) ,4Q96) 

L=IT-IR 



IF( ID.FQ 

.IDGOTO 2 


NDAT(5/.) 

=NDAT ( 56)^1 


GOTO 1 


2 

NDAT(56) 

=NDAT(56)^L 


GOTO 1 



ENDS 


SASSEMB 



IDEN 

SLEEE 


)J:def 

SLEEP, SLEEP 

SLEEP 

GAP 

1 


TJM 

RET 


TMJ 

0,1 


TLO 

RTN 


blu 

•30 


TFM 

K 


TLO 

K 


BLU 

SWAI 


BUC* 

RET 

RET 



RTN 

TZM 

K 


TME 

•200 


T2A 



TD4 



BUC 

0, J 

H 




ENDS 



^CATALOG 

TYPE=FG 

Name^loop 

Megin 

SEOJ 

SjOB NAVPRM 
^assign, 6, 0 
5 

»BINCLUDE CSF 

^include fio 

•j? I NCI GHF I n 



^INCLUDE LOOKUP 
^INCLUDE TVSAT 
SINCLUDE WAIT 
SFORTRA 

G CALLS WAVIOATION SYSTEM TOR'DAY OF CURRENT FRAME 
DIMENSION M I N( 8) , MOUT ( 10 ) 

COMMON/SYSCOM/NDAT ( 100 ) 

DATA MIN/6HNAVFRM/ 

DATA M0UT/6HNAVSYS/ 

GALL lO(MIN)' 

1F = NDAT(56) , AND. 'Xlll 

CALL TVSAT( IF,100;i0n,I,J^TT,ID) 

M0UT(3)=1D 
CALL SQ(MOUT) 

GALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

Name=navfrm 

ASSIGN 2=REELS» 3=FRAMES 

Degin 

SEOJ 



SJOB DEFPNT 
S^ASSIGN,6,0 
SREW,5 

^INCLUDE CSF 
SFORTRA 

DIMENSION MES(8) 

COMMON /SYSCOM/NDAt{i 00) 
DATA MFS/6HDEFPNT/ 

CALL in(MES) 

NDAT(59)=MES(1) 

NDAT(60)=MES(2) 

CALL EVIT 
. ENDS 
SCATALOG 
TYPE=FG 

Name=defpnt 

feEGIN 

Jfeoj 



^JOB DORBIT 

•S;rew,5 
‘ 6 ASSIGN 1 6 > 0 
iRiNCLUDt CSF 
SFdRTRA 

DIMENSION MIN( 8 ) >MOUT(lO) 
data MIN/6HD0RBI T/ 
data MOUT/ 6 HDLANDM/ 

C dRBITS ARE ENCODED AS ’UANDMARKS’ OF TYPE 12 AND 13 
CALL lO(MIN) 

MOUT( 3) =MIN( 1) 

M0UT(4)=0 

H0UT(5)=0 

M0UT(8)=MIN(2) 

M0UT(9) =MIN(3) 

HOUT(10)=12 

M0UT(6)=MIN(4) 

M0UT(7)=MIN(5) 

CALL SO(MOUT) 

MOUT(10)=13 

M0UT(8)=MIN(6> 

M0UT(9) =MIN(7) 

M0UT(6)=MIN(8) 

M0UT(7)=n 
CALL SD(MOUT) 

CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NAME=DORBIT 

BEGIN 

SEOJ ' : : — 



JOB DSRATE 
ASSIGN. 6,0 
REW.5 

INCLUDE CSF 
FORTRA 

DIMENSION MI N ( 8 ) . MOUT ( lO ) 
data MIN/6HDSRATE/ 

data MnUT/6HDLANDM/ ^ 

: ^PIN RATE IS ENCODED AS 'LANDMARK* OF KIND 11 

CALL lO(MIN) . 

M0UT(3)=M1N(1) 

M0UT(4) =0 
M0UT(5)=0 
MOUT(6)=0 
MOUT(7>=0 
M0UT(8I=MIN(2) 

HOUT(9)=0 
MOUT(in)=ll 
CALL SO(MOUT) 

gall exit 
ENDS 

iiCATALOG 

TYPE=FG 

Name=d$rate 

6EGIN 

SEOJ 



SJOB DLAhiDM 
SSASSIGM 6 0 

SINCLUDE CSr 
SiNCLUnE 10 
^INCLUDE no 
5BINCLUDE WAIT 
S^FORTRA 

SUBROUTINE SRT(J) 

DIMENSION J(560) 

DO 1 K=l»560,7 
DO 1 L=Kr560,7 
JL=J(L+1) 

JK=J(K+1) 

IF( JL,PQ, 0 ) JL=240t0D 

IF< JK«F0,0> JK=240100 

IF( JK J E. JDGOTO t 

DO 2 M=l,7 

MK2:M-1 + K 

MLiM-l+L 

LTEM=J(MK) 

J(MK)=J(ML) 

J(HL)=LTFM 
2 CONTINUE 

1 CONTINUE 

RETURN 
END 

dimension NAM(2) 

DIMENSION MES(8) 

DIMENSION JDIR(560) 

DIMENSION NER3(24),NER9(24) 

COMMON / SYSCOM/N D Al ( 100) 

C DEFINES landmarks aND OTHER PICTURE RELATED DATA 
D INPUT IS SVYDDD H-HMMSS KEY Pl/P2*P3,P4, KIND 

c Only one entry of unique syyddo hhmmss kind 

C FOR EXAMPLP. FOR LANDMARKS ... 

C INPUT IS SYYDDD. HHMMSS'/ KEY, SATLIN, SATELE, LAT, LON 
DATA NER9/40HPICTURE INFO FILE UPDATE REJECTED 

DATA NAM/6HDLANDM/ ' ' ' " ' ' ' “ ' 

DATA NFR3/40HNO ROOM IN PICTURE DATA FILE 
199 MES( 1 )=NAM( 1 ) 

MES( 2)=NAM( 2 ) 

CALL lO(MES) 

IF(MES(1) .EQ.NAM(t)4G0 TO 299 
IF(MES(1 ) .EQ. 0 )CALL ABORT 
I KEY=NDAT( 95 ). AND. ‘40000000 
IF(IKEY.NE.O)GO TQ 191 
CALL TQ(NER9) 

CALL EXIT 
191 CONTINUE 
ID=MES(1) 

IT=MES(2) 

IK=MES(3) 

IL=MES(4) 

IE=MES(5) 

ILAT=MES(6) 



KIND=MFS<8) 

CALL WA r T (NDAT (921) 

NDAT(92)=-1 

CALL 0PN(4) 

MSfC=5*M0D( ID, 100) 

CALL SCRA(4,HSEC) 

GALL RPADW(4, 560, JDf R) 

DO 11 K=l,560,7 
ir(JDIR(K) .ME. ID)GOTO 11 
IF( JDIR(K + 1) ,NF. IDGOTO 11 
KAY= JD I R ( K+6 ) /4096 
IFCKAyVnF.KIND )60T0 11 
GOTO 50 

If continue 

DO 10 K=l,560,7 
IF( JDIR(K) ,EQ, 0)GQTO 50 
10 CONTINUE 

CALL TD(NER3) 

CALL CI0S(4) 

NDAT ( 92) =0 
CALL EYIT 
e SYYDDD 
59 JDiR(K)=ID 
K = K + 1 
C HHMMSS 

66 JDIR(K) =IT — 

K = K + 1 

C LAT 

IF (ILAT,NE.0)JD!R(K)=ILAT 
IF(KINn.GT.9)JDIR{Kl=ILAT 
K = K + 1 

C LONG 

IF(ILOM.NE.O)JDIR(K1=ILON 
IF(KlNn.GT.9) JDIR(K) =ILON 
K = k + 1 

C LINE 

IF(IL.NEVO)JDIR(K)=fL 
IF(KIND.GT.9) JDIR(K)=IL 

K = k + 1 

IF( lE.NE , 0 ) JDI R(K1 =f E 
IF(KIND.GT .9) JDIR(K) =IE 

K = k + 1 

JD1R(K)=IK+4096*KIND 

C 

CALL SRT(vlDIR) 

CALL SCRA(4,MSFC) 

CALL WRITW(4,560, JDIR) 

CALL CL0S{4) 

NDAT (92) =0 
GO TO 199 
299 CALL EXIT 
ENDS 

SCATAL06 

TYPE‘FG 

name=dlandm 

ASSIGN 4=LANDMA 

degin 

SeOj 



$JOB FINDTP 
5SASSIGN 6,0 
^INCLUDE 10 
^INCLUDE FIO 
^INCLUDE CSF 
liNCLUDE WAIT 
^FORTRAN 

DIMENSION JDIR(ll2 0nMFS(8) ,M0UT (2*1 ) 
DIMENSION NAM(2) 

DIMENSION MTY(24) 
GOMMON/SYSCOM/NDATdOO) 

DATA NAM/6HFINDTP/ 

DATA M0UT/6HLISTAP/ 

DATA MTY/30HN0 TARE REELS 
CALL WAIT(NDAT(94n 
NDAT(94)=-1 
GALL 0PN(2) 

199 ME3(1)zNAM(1) 

MES(2)=NAM(2) 

CALL lO(MES) 

IF(MES(1) .EQ.NAMCD^GO TO 299 
CALL RPW(2) 

KN = 0 

CALL RFADW(2,1120; JDIR) 

N:=JDIR(1)-1 

1F<MES(1 > ,EQ. 0 )G0 TO 299 
DO 100 J=10,N,80 
call SrRA( 2, lO+J/8) 

GALL RFAnW(2,1120; JDIR) 

DO 100 K=l,80 
L=1+(K-1)*14 

IF( JDIRCI +1) .NF.MES(l) )60 TO 100 
M0UT{3)=JDIR(L) 

DO 90 1=4,10 
90 MOUT(L>=0 
KN^KN + 1. 

GALL SO(MOUT) 

100 CONTINUE 

IF(KN.FQ.0)CALL TQ(MTY) 

GO TO 199 
299 CALL CI0S(2) 

NDAT(94)=0 
CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NAME:^FINDTP 

assign 2=REEIS 

BEGIN 

SEOJ 



fejOB LISTAP 
$REW,5 
iBASSIGN 6,0 
^INCLUDE LOOKUP 
SINCLUnE,FIO 

$ INCLUDE 10 • - - - - - --T r~ 

SINCLUDE CSF 
^INCLUDE WAIT 
^FORTRAN 

DIMENSION MES(8) ,M0tlT(24) ,NAM(2) , JSEC(14) 
■ COMMON/SYSCOM/NOAT ( iOO ) 

DATA NAM/6HLISTAP;; 

1 MES(1)=NAM(1) 

MES(2)::NAM(2) 

GALL lO(MES) 

IF<MES(1) .EQ.NAM(1)KALL EXIT 
DO 10 J=l,8 ' 

1F(MES(J).EQ,0)GO TO 10 

IF(NDAT(94) .LT . 0)CALL WA I T ( NO AT ( 94 ) ) 

NDAT(94)=-1 

GALL L00KUP(2,MES< jn JSEC) 

NDAT(94)=0 

IF( JSECn ).EO.O)GO TO 9 

ENCODE (72, 222, MOUT ) ( JSEC ( K ) , K=l, 5 ) 

2^2 FORMAT ( ♦ T • , 2 I 7 , I 8 ; 2 I 6 ) 

GALL TO(MOUT) 

60 TO 10 

9 ENCODE (72,333 , MOUT )HES(j ) 

333 FORMATC'NO TAPE'. 17) 

CALL TO(MOUT) 

10 CONTINUE 
GO TO 1 
•ENDS 

ICATALOG 
TYPE=FG 
NAME=LISTAP 
assign 2=REEt S 
BEGIN 

.lEOu...: 



$JOB riNPRM 

^assign 6 0 
iREW,5 

^INCLUDE CSF 

^include 10 

S^INCLUDE FIO 
^INCLUDE WAIT 
^FORTRAN 

SUBROUTINE LT(N) 

DIMENSION MES(IO) 

DATA MFS/6HL ISTAP/ 

MES<3)=N 
DO 1 J=4,10 
1 MES(J)=0 

CALL SO(MES) 

RETURN 

END 

SUBROUTINE LF(N) 

DIMENSION MES(IO) 

DATA MFS/6HLFRAME^ 

MES(3)=N 
DO 1 J=4,10 
1 MES(J):^0 

CALL SO(MES) 

RETURN 

END 

DIMENSION IFRAME(208) 

DIMENSION JOIR(1120^,ITAPE(100),IOUT(100) 
DIMENSION MERK24) 

DIMENSION MES(IO) 

COMMON/SYSCOM/NDAt{ iOO) 

DATA NT/0/ 

--DATA MFR1/30HNO FRAMES 
DATA NF/0/ 

DATA MFS/6HFINFRM/, 

GALL WA I T (NOAT ( 94^ ) 

ND'AT(94)=-i 
GALL 0PNt2) 

CALL RFW(2) 

GALL REAnW(2, 1120; JDIR) 

NTAPE=JDIR(1)-1 
CALL lO(MES) 

DO 100 j=io,ntape;80 
CALL SCRA(2,10+J/Q) 

CALL RFADW(2. 1120;jDIR> 

DO 100 K=l,80 
L = 1-^(K-1)<^14 

IF( JDIRU. + l) .NE.MESd) )G0 TO 100 
NT=NT+1 

ITAPE(MT)=JDIR(L) 

I.OUT(NT)=0 
100 CONTINUE 

CALL CI.OS(2) 

NDAT (94 ) =0 

CALL WAlT(NDAT(93n 

ND'AT(93>=-1 



CALL 0PN(3) 

CALL RPW(3) 

CALL RPAnw(3, 1120 ; JDIR) 
NFRAME=jniR(l).l 
DO 200 J=10,NFRAME,80 
CALL SCRA (3, lO + J/8 ) 

CALL RFAnW(3,ll20; JDIR) 

DO 200 K=l,80 
L=1+(K"1)»14 
DO 201 1=1, NT 

lF(ITAPEn),EO.JDTR<L + l))Gn TO 202 

281 continue 

GO TO 200 
262 NF=NF+1 

IFRAME(NF)=JDIR(L1 

e IF(I0UT(T ).E0.0)CALL LTHTAPEd)) 
IOUT( I ) =1 
260 CONTINUE 

CALL Cl 0S(3) 

NDAT(93)=0 

ir(NF.FO.O)GO TO 400 
DO 300 J=1,NF 
300 CALL LF( TFRAME( J)1 
CALL EVIT 

400 CALL TQ(HERI) 

CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAME=FINFRM 

ASSIGN 2=REEIS,3=FRAMES 

BEGIN 

^EOJ 





%JOB SAVEDK 
SBA$SIGN,6»0 
«R6W,5 

SINCLUDE CSF 
^INCLUDE no 
SlNCLUDE 10 
JEFORTRAN 

DIMENSION J(2240) 
DIMENSION MES(8) 


DATA 

MFS/6HSAVEDK/- ' 

CALL 

lO(MES) 

CALL 

0PN(2) 

CALL 

0PN(3) 

CALL 

0PN(4) 

CALL 

RFW(2) 

CALL 

RFW(3) - 

CALL 

RFW(4 ) 

CALL 

RFAnw( 3/ 112, 0) 

CALL 

CI.0S(3) 

CALL 

WRITW(2, 112, J) 

DO 1 

N=l,400 

CALL 

RFADWC 4# 2240;j^ 

1 CALL 

WRITW(2,2240; 

CALL 

RFW(2) 

CALL 

RFW(4) 

CALL 

CL0S(2) 

GALL 

Cl 0S(4) 

GALL 

EXIT 

ENDS 


SlCATALOG 



TYPE=FG 

NAME=SAVEDK 

ASSIGN 2i:ll,3 = nKDIR/4 = DK 

Degin 

SEOJ 



iKjOB RESTDK 
SASSIGN>6,0 
5REW,5 

^INCLUDE FIO 
IRINCLUDE CSF 
^INCLUDE 10 
SiFORTRA 

DIMENSION J(2240) 
dimension MES{8 ) ,IJk( 10 ) 
DATA LK/6HLISDIR/ 
data MFS/6HRESTDK/ 

CALL 0PN(2) 

GALL RPW(2) 

GALL 0PN(3) 

GALL RPW(3) 

GALL 0PN(4) 

CALL RFW(4) 

GALL ID(MES) 

GALL RFAnW( 2/112, J) 

CALL WRI TW( 3/ 112, J) 

CALL RFW(3) 

CALL C(0S(3) 

GALL SO(LK) 

DO 1 N=1.400 

CALL RFAOW( 2, 2240; J) 

1 GALL WRITW(4,2240;jO 
GALL RFW(2> 

CALL RFW(4) 

CALL CI0S(2) 

CALL CL0S(4) 

CALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAME=RESTDK 

ASSIGN 2=ll,3=nKD|R,4=DK 

BEGIN 

SEOJ 




SJOB DELHRK 
SaSSIGN 6 0 
$REW,5 

^INCLUDE WAIT 
^FORTRAN 

Dlf^ENSlON MES(8) ,’JDiR(560) 
DIMENSION MER(24) 
GOHMON/SYSCOM/NDATdnO) 

DATA MFR/30HUNAUTR0RI ZED El 
DATA MFS/6HDELMRK/ 

CALL ID<MES) 

ir<MES(i) .eo.o)cac:l abort 

CALL WAIT(NDAT(92) ) 

ND'AT(9?)=-1 
CALL 0PN(2) 

IKEY = NnAT(95) .ANDVMOOOOOOO 
IF(IKEY,NE.O)GO TQ 6999 
CALL TO(MER) 

CALL CI.0S(2) 

NDAT(92)=0 
CALL EVIT 

6999 MSEC = 5*M0D( MES( 1) i'lOO) 

CALL SCRA(2,MSEC) 

GALL RFAnW(2/ 560,LJDiR) 

DO 1 J=l,560,7 
IF( JDIR( J) .NE.MESddGOTO 1 
IF( JDIR( J+1) .NE »MES(2) )GOTO 1 
■ KlKlD = jniR( J + 6)/4096 

IF(ME$( 3) .NE *KIND) GOTO 1 
JDIR(.J)=0 
1 CONTINUE 

CALL SCRA(2,MSEC) 

CALL WRITW(2#560, JDiR) 

CALL Cl 0S(2) 

NDAT(9?)=0 
CALL EXIT 
ENDS 

^INCLUDE CSF 
SINCLUDE 10 
S INCLUDE FIO 
SCATALOG 
TYPE=FG 
NAHE=DELMRK 
ASSIGN 2=LANDMA 
BEGIN 

SEOJ 



SJOB WCELL 

SA$SIGN,6,0 ‘ 

SREW,5 

^INCLUDE CSF 
SINCLUDE no 
^INCLUDE 10 
^FORTRAN 

DIMENSION J( 560 ) , MES ( 8 ) / MOUT ( 24 ) 
COMMON/SYSCOM/NDATdOO) 

DATA MPS/6HWCELL / 

GALL IQ(MES) 

IF(NDAT(92) ,LT .0)2 ALL WAIT(NDAT(92)) 

NDAT(92)=-1 

CALL 0PN(2) 

CALL RFW(2) 

MB^^O 

MNiO 

DO 1 M=l,100 - 
CALL RFAnW(2,560, J) 

MM = 0 

DO 2 LL = 1.,560,7 

IF ( J(LI. ) . EG. 0 )GOTQ 2 

■■ - MM=MM*ki * - - - --- 

2 continue 

IF(MM , I.T . MB)GOTO t 

MB = MM 

MN=M-1 

1 CONTINUE 

CALL CL0S(2) 

NDAT(92)=0 

ENCODE (72, 333, HOUI )MN, MB 
333 FORMAT (' CELL d 13, ! HAS',M,' ENTRIES') 
CALL TG(MOUT) 

CALL EXIT , . 

ENDS 

S5INCLUDE WAIT 

^CATALOG 

TYPE=FG 

name=wcell 

ASSIGN 2=LANDMA 

bEGiN 

JBEOJ 



$JOB ABSLD 
^ASSIGN, 6,0 
$REW,5 

^INCLUDE CSr 
^INCLUDE EDGFCO 
^INCLUDE no 
i^INCLUDE FTIME 
^INCLUDE GETGAM 

S^l'NCLUDE 10 - - - - — 

SINCLUDE LOOKUP 
SINCLUDE SATFAR 
SINCLUDE STAGE 
SINCLUDE WAIT 
^FORTRAN 

DIMENSION IS(81930 
DIMENSION IT(2751) 

DIMENSION ID(112O0 
DIMENSION MES(8) 

DIMENSION MUNG(14) 

DIMENSION M0UT(24^ 

COMMON /S YSCOM/ I COM ( iOO) 

EQU I VALENCE ( I T ( 1 ) ; I S ( 54 62 5 ) 

DATA MFS/6HABSLD 

DATA MOUT/30HTAPE LOAD COMPLETED 
CALL 0PN(2) - 
CALL 0PNC3) 

CALL lO(MES) 

G MES(1)= DISK AREA 1^8 
NSEC=MFS(1) 

C MES(2)=STaRTTNG ELEMENT TAPE RFLATIVE 
IES=MES(?) 

G MES(3)IS LINF increment 
ILD=MES(3) 

IF ( ILD.EO.O) ILD=1 
c hes(4) is element increment 
IED=MES(4) 

IF(IED.EO.0)IED=3 

G HES(5) IS satellite LINE TAPE IS NOW POSITIONED AT 
IPL=MES(5) 

e HES(6) IS FIRST SAT ELEMENT ON TAPE 
I0F=MES(6) 
e MES(7) IS FEC KEY 
KEE=MES(7) 

e MES(8) IS reel number 

IF( IC0M(94) ,LT , 0)CALL WA I T ( I COM ( 94 ) ) 

IC0M(94)=-1 

CALL LD0KUP(4,MES(8KMUNG) 

ICOM(94T=0 
^ IDAY=MUNG(2) 

PST=FTIMF(MUNG(3)0 

CALL 6FTGAM( I DAY, MUNG(3) , BETA# BOOT » 

NSEC=(NSFC-1)<^100Q 

NR=500*H D 

NE=672*IFD 

IEL=1ES+NE-1 



M = M + 1 

DO 99 J=2,6 
ISeC(M)=MES(J) 

99 M=M+1 

e TAPENO 

ISEC{M)=M1(1) 

GALL RFW(3) 

GALL WRITW(3/112# rSEC) 
CALL CI.0S(3) 

CALL SO(MOUT) 

GALL EXIT 
960 CALL Tn(MER) 

CALL EXIT 
ENDS 

^CATALOG 

TYPE:^FG,PRIV 

Name=ldcntr 

ASSIGN 2=:ll,3 = nKDIR» 4 = REELS 
BEGIN 

SEOJ 




■ T = J 

10 = NDAT(J-»-82) 

1 CONTINUE 

CALL AGE(I) 

NMES(2)=NMES(2)+I 
CALL TO(NMES) 

N=i 

return 

ENB 

DIMENSION MES(8)»MK14),M0UTa0),MER(24)nSEeai2> 
COMMON/S YSCOM/N DAT ( iOO) 

DATA MES/6HLDCNTR/ 

DATA MFR/30HLDCNTR PARAMETER ERROR 
DATA M0UT/6HABSLD / 

CALL lO(MES) 

CALL WAIT(NDAT(94^ ) 

NDAT(94)=-1 

GALL LnOKUP(4,MES(l^ ,M1) I 

NDAT(94 ) = 0 

IF(MKl) .EO.OIGO TO 900 
LS=MES(2)-M1(4)+1 
IF<LS.LT.l)GO TO 908 
IES = MES{ 3 ) -MK 5) +1 
IF( IESVlF.O)GO to 980 
G FIRST Tape relative element to LOAD 
M0UT(4>=IES 

e Cine increment 

IF(MES(4) ,EO.O)MES(4)=1 
M0UT(5)=MES(4) 

G ELEMENT INCREMENT 

IF(MES(5) .EQ.0)MES(5)=3 
M0UT(6)=MES(5) 

C SATELLITE LINE 

M0UT(7 ) =MES(2 ) 

C FIRST SATELLITE LMENT ON TAPE 
M0UT(8)=M1(5) 

C EEC KEY 

M00T(9)=MES(6) 

C TAPE NUMBER 

MOUT(in)=Ml(l) 

GALL PICK(NSEC) 

C AREA TO PUT DATA 
M0UT(3)=NSEC 

GALL POS(LS,M1(4);m1(3)) 

GALL 0PN(3) 

CALL REW(3) 

CALL REAnW(3»ll2, fSEC) 

M=t4*(MSEC-l)+l 
C SYYDDD 

ISEC(M)=M1(2) 

M=M + 1 
C HHMMSS 

ISEC(M)=M1(3) 



SJOB LDCtsiTR 


ASSIGN t 

j,0 

$REW»5 


SINCLUDE 

CSF 

^INCLUDE 

10 

^INCLUDE 

FIO 

^INCLUDE 

LOOKUP 

SINCLUDE 

WAIT 

SINCLUDE 

AGE 

SINCLUDE 

STAGE 

SINCLUDE 

NR 21. 

^INCLUDE 

FTIME 

SFORTRA 



subroutine P0S(M,LINE. ITIMF ) 

DIMENSION DUMMY(2) 

GOMMON/SYSCOM/ ICON ( 100) 

DIMENSION M0UT(24) 

DATA MOUT/40HTAPE IDENTITY VERIFIED BY LBCNJR 
DATA KFY/0/ 

CALL 0PN(2) 

CALL RFW(2) 

N = M-1 

IF(N ,LT . 1 )RETURN 
T=FTIMF( ITIME) 

DO 1 J=1,N 

1F(ICOm( 1).EO.O)GOTO 222 
1F(KEYVE0 . 0)GOTO 1:00 
CALL RFAnW( 2# 2, DUMMY) 

GOTO 1 

100 GALL NR2L(L, IT) 

1F(L.E0, 0)G0T0 1 
I=L-J 

IF(IAB5;(I-LINE).Gt,5)GOTO 1 
X=FTIMF( IT) 

0=.6«FLOAT<L)/360Q. 

X = X-0 

Y=ABS(y-T)*3600 . 

IF(Y.GT.100, )GOTO 1 

KEV = 1 

CALL TO(MOUT) 

1 CONTINUE 

CALL CI 0S(2) 

RETURN 

222 CALL RFW(2) 

CALL CI.0S(2) 

CALL EXIT 
END 

SUBROUTINE PICK(N) 

DIMENSION NMES(24) 

COMMON /SYSCOM/N DAT (100) 
data NMES/30HAREA 0 USED BY LDCNTR 
I=i 
10^=0 

DO 1 J=l»8 . 

1F< I0,GT.NDAT( J+82))G0 TO 1 



ENCODE (36, 333, MMOtJT^ M4 , M3> M 2 , Ml 
333 F0RMAT( »?^YSTEM IDLE AT *,411) 
CALL TO(MOUT) 

CALL EXIT 

960 DO 901 J=l»112 
901 JLOG(J>=0 
60 TO 3 
ENDS 

5fCATAL06 

type-fg 

NAME = LOGt)UT 

ASSIGN 2=L0G,3=SYSCOM 

SEGIN 

$E0J 



$JOB LOGOUT 
SASSIGN 6 0 

^INCLUDE CSF 
^INCLUDE FIO 
SINCLUnE 10 
^FORTRAN 

COMMON/SYSCOM/NCOM( iOO) 

DIMENSION MCOM(IOO) 

DIMENSION MES(8) ,M0UT(24) , JL0G(112) 

DIMENSION MM0UT(12) 

DIMENSION MESX9(1Q) 

EQO I VALENCE (M0UT(i2^ ,MM0UT(1) ) 

DATA MFS/6HL0G0UT/ 

DATA MFSX9/6HD0I0XX/ 

CALL FR0GS(7,MES) 

CALL ID(MES) 

1F(NC0M(1) ,EQ.0)CALL exit 
KPR0J=MC0M(1) 

NC0M(1)=0 
DO 983 JA=1,100 
983 MC0M( JA )=NC0M( JA) 

CALL 0PN(3) 

CALL RFW(3) 

CALL WRITW(3,100,MCOM) 

CALL CL0S(3) 

NC0M(76)=1 
CALL S0(MESX9) 

NCL0CK=NC0M(97) 

CALL 0PN(2) 

CALL RFW(2) 

IF(MES(1) .EQ,987898^G0 TO 900 
CALL RFADW(2,112, JLOG) 

3 CONTINUE 

CALL SCRA<2,0) 

DO 2 J=l, 112,2 
IF( JLOG( J) . EG. 0. OS . JLOG( J) 

2 CONTINUE 

J = lll 

160 JLOG ( J )=KPROJ 

JL06( J + 1 ) = JLOG ( J + 1 ) ^'NCLOCK 
CALL WRITW(2, 112, JLOG) 

CALL Cl 0S(2) 

F60 = NCI.OCK 
F60=F60/60. 

ENCODE ( 72, 222, MOUT )K PRO J,F60 
222 F0RMAT('PR0JECT*,15;F8.2, • MINUTES’) 

NC0M(98 )=NC0M(96)+NG0M(97) 

IF(NC0M(96).GT,86^0G)NC0M(96)=NC0M(96)-8648B 

NCOM(97)=0 

MM=NCO^^ ( 96) /60 

MM=^MOD(MM, 60 ) 

M1=MOD(MM,10) 

M2 = MOD(MM/lO, 10 ) 

MMs:NCOM(96)/3600 
M3 = M0D(MM, 10 ) 

M4=MM/10 


EO.KPROJ)GO TO 100 



SJDB ENH0O1 
$A$SIGM,6>0 
SREiW,5 

^INCLUDE CSF 

^INCLUDE HIO 
^INCLUDE IK 
SINCLUDE 10 
^INCLUDE no 
SSrORTRA 

COMMON/SYSCOM/NDATdOO) 

DIMENSION MES(8),M(64) 

DATA MFS/ 6 HENHOOI;: 

GALL ID(MES) 

CALL 0PN(2) 

GALL RFW(2) 

GALL RFADW( 2# 

CALL RFW(2) 

1F(MES(1) ,NE.0)6OtO 100 

DO 1 J=l,64 
1 M(J)=0 

160 D=MES(?)-mES(1) 

ir(D.LT.l. )D=1. 

S1=MES(4 ) -MES (3) 

S2=MES(6 )-MES(5) 

S3±MES(8)-M£S{7) 

SliSl/n 

S2=S2/n - . 

S3=S3/n 

X1=MES(3) 

X2=MES(5) 

X3=MES(7 ) 

1=MES(1) 

J=HES(2) 

DO 200 L=I>J 

MliXl 

M2 = X2 

M3 = X3 

X1=X1+S1 

X2=X2+S2 

X3iX3+S3 

260 M( L ) =4096*M1+64*M2+H3 
CALL WRITW(2> 64, MO 
CALL CrOS(2) 

IF ( J, NF . 63 )CALL EXIT 

CALL HTO( ' 101, *2140; ’1000000) 

CALL HTO( *101, ’2000;’23000000+IK{M(1))) 
DO 300 L=2,64 

300 CALL HIO( ’101, * 2000 ; ’2l000n00+IK(M(L )) ) 
GALL HTO( ’101/ *2140;NDAT(75) ) 

CALL EXIT 
ENDS 

^catalog 

TYPE=FQ 

nahe=enhooi 

ASSIGN 2=ENH1 

Begin 

SFiLEMA 

2REATE/ENH1/0, 1,3,1 
EXIT 

seoj 


<^/o 



1 CONTINUE 
C iM SHOULD COUNT FROM t 
IF( IS.NE.-l) 

RETURN 

ENDS 

SFiLEMA 

ESTAB,5, ADDR,0»l,0i4 

EXiT 

SEOJ 


^// 



litJdB ADDR 
SASSIGN 6 0 


$h:^:w,gn 5 lr 
SFORTRA 

subroutine ADDR( ILf IE, IDL, IDE, is, IM) 

C **4»* INPUTS ***** 

C ID IS DAY NUMBER 
C tL IS SATEILITE START LfNE 

c fE IS satellite start element 
e ***** OUTPUTS ***** 
fe fL IS eHANGED TO LIE ON A LINE IN OUE 
C IE IS CHANGED TO LIE ON WORD BOUNDARY 

G tDL IS LINE Sampling on disk 
e iDE IS ELEMENT SAMPLING ON DISK 
e IS IS STARTING SECTOR FOR REQUEST 
C if IS = -1 IMP NON-HTT 
e IM IS WORD OFFSET FROM STARTING SECTOR 
DIMENSION J(112) 

DATA N/0/ 

IS = -1 

IF<N,EO.O)CALL OPN(7) 

N = 1 

CALL RFW(7) 

GALL REAnW(7-,112, J) 

DO 1 K=l,8 
L=(K-i )*14+1 
IF( ID.NE, J(L) )GO TO 1 
L = L^1 

IFdT.NE. J(L))GOTO 1 
L=L + 1 
ILS=J(L) 

L = L + 1 
IES=J(L) 

L = L + 1 
LD±J(L) 

L = L + 1 
IED = J(I ) 

IF ( IL J'T . ILS )GOTO 1 
IF( lE.LT. IES)GOTO 1 
IF(1L,GT. ILS+LD*500^GOTO 1 
IF( lE.GT. IES+IFD«22^*3)G0T0 1 

e * * * <IL,IE) NOW LIES within AREA OF INTEREST * * « 
lNG=3*IEn 
M=(IL-TLS)/LD 
IL=ILS+M*LD 
1S=2*M 

IMi ( IE-IFS)/INC 
IEi:IES’HlM*INC 
IDL=LD 
IDE=IED 

IS=IS'^1 000*(K-1) 

CALL AGE(K) 

IF( IM.I T.112)G0 TO i 

IM2IM-II2 

IS^lS+l 



'StJOB INIT 
5REW,5 
SJNCLUDE 10 
^INCLUDE FIO 
^ASSIGN 6 0 
^FORTRAN 

DIMENSION JSEC(112) 

COHMON/SYSCOM/NDATdOO) 

101 FORMAT(' TYPE IN 1 DIGIT TIMF> HOURS AND MINUTE^') 
1G2' F0RMAT(2I2) 

961 FORMAT( //IX, 8A3//) 

CALL 0PN(2) 

CALL SCRA(2,0) 

CALL RFAOW( 2,112, JSEC) 

CALL CL0S(2) 

CALL FR0GS(1,5H0PC0M,7) 

WRiTEd ,901)(JSEC(JJ), JJ=1,8) 

WRITE(1,101) 

READ(i,102) II, 12 
00 99 JJ=1,100 
99 NDAT(JJ)=0 

I =60*12+3600*11 
NDAT(96)=I 
GALL EXIT 
ENDS 

SCATALOG 

TYPE=FG 

NAME=INIT,2 

Assign i=i,2=vfrs,3=syscom 
DEGIN 

lEOJ - — 



SjOB LNDMRK 
«ASSIGN,6,0 
$REW,5 

Skinclude tvsat 

^^INCLUDE WAIT 
SINCLUDE LOOKUP 
^INCLUOE CSF 
^INCLUDE FIO 
S^IMCLUDE 10 
^FbRTRAN 

DIMENSION MIN(8) ,MOt)T( 10) /NAM.(2) 

DATA NAM/6HLNDMRK/ 

DATA MnUT/6HDLANnM/ 

e INPUT IS frame, LAT, LON, TVL; TVE, KEY 
C OUTPUT IS SYYDDD, HHMMSS, KEY; SATL, SATE, LAT, LON 
1 MIN(1)=NAM(1) 

MIN(2)=NAM(2) 

CALL IQ(MIN) 

IF(M1N<D ,EQ.NAM(1)^CALL EXIT 

e 

GALL TVSAT(MIN( 1) ;MfN(4) ,MTN(5 ) , IL, IE, it; ID^ 

G f'D = 0 IMP MISSING “FRAME DR TAPE LINKAGE 

if(Id.fq.o)call exit 

C SYYDDD 

M0UT(3)=ID 
e HHMMSS 

M0UT(4)=IT 

C kEY 

M0UT(5 ) =MIN (6 ) 

C SATL IN 

M0UT(6)=IL 
e SAT ELEMENT 

M0UT(7)=IE 

G LAT 

M0UT(8)=MIN(2) 

G Lon 

H0UT(9)=MIN(3) 

b KIND 

M0UT(in)=MIN(7) 

CALL SO(MOUT) 

GOTO 1 
ENDS 

^CATALOG 

TYPE=FG 

NAME=LNDMRK 

ASSIGN 2, REELS, 3=FRAMES 

BEGIN 

SEOJ 



SgJOB LFRi^ME 
$ASSIGN,6, 0 
!^REW,5 

^INCLUDE CSF 
^INCLUDE no 
SINCLUDE FTIME 
^INCLUDE GETGAM 
S^INCLUDE ILALO 
^INCLUDE 10 
^INCLUDE LOOKUP 
SINCLUDE SATPAR 
SINCLUDE TVSAT 
^INCLUDE WAIT 
^FORTRAN 

DIMENSION MES(8) ,NAM(2) 

DATA NAM/6HLFRAME/ 

1 MES(1)=NAM(1) 

MES( 2) =NAM( 2) 

GALL lO(MES) 

IF(MESd) .EO.NAM( 1) vAND.MES(2) .EO. NAM(2) rcALL EXjT 
DO 2 1=1.8 

IF(MESM).NE.O)CALL D0IT(MFS(D) 

2 CONTINUE 
GO TO 1 

END ^ I 

SUBROUTINE DOIT(N) 

COMMON /SYSCOM/ I COM (100) 

EOUIVAIENCE (I COM ( 2^ . I D A Y ) , ' 

DIMENSION M(14),MQUT(24) 

GALL LD0K(3.N,H) 

ITL=M(5) 

ITE=M(A) 

CALL TVSATXN, ITL. tTE, IL2. IF2. IT, ID) 

1F( ID,F0.0)CALI EXIT 
NTAPE=M(2) 

NLIN=M(7) 

ENCODE(72,100,MOUT)N,NTAPE, ID,IT,IL2,IE2,NLtN 
100 FORMAT ( ’F», 15,217; 18,317,219) 

IF( IDAY.NE. ID)GO TO 1 
INi^V = l 

PICTIM=FTIME(IT) 

XELE=IF2 

CALL GETGAM ( ID, I T ;'BET A I N , BETDOT ) 

CALL SATFaR(PICTIM,XLIN,XEI E , XL AT XLON , 1 , I NA V , Bb T A f N , BETDOT , 0 . 0 ) 
IL’AT = II.AI 0( XLAT ) 

ILDN=II ALO(XLON) 

ENCODE (72, 1 0 0 , MOUT ) N , NT AP E , I D >I T , I L2 , I E2 , NL t N , If: AT , I L ON 
1 CALL TO(MOUT) 

RETURN 
ENDS 

^CATALOG 
TYPE=FG 
NAME = LFR.AME 

ASSIGN 2=REEI S , 3=FRAMES 7 li=LANDMA 
BEGIN 
^EOJ 




^JOB LISDIR 
^ASSIGN 6 0 
{Brew, 5 

SINCLUDE CSF 
^INCLUDE 10 
^INCLUDE FIO 
S^FORTRA 

DIMENSION MES(8), J(112) 

DIMENSION M0UT(241 
COMMON /SYSCOM/ND AT { 100 ) 

DATA MPS/6HLISDIR;: 

CALL lO(MES) 

CALL 0PN(2) 

CALL RFW(2) 

CALL RFAnW(2/112, J) 

CALL CL0S(2) 

1 FORMAT! I3,5I7,3I3;i5) 

DO 11 K=l,8 
L = 14*(K-1 ) + l 
M = L + 6 

MK=NDAT(K+82) 

MJ=J(L*7) 

IF( J(L) .FQ. 0)GOTO 11 

ENCODE (72,1,M0UT)K,MJ, (J(N)#N=L»M),MK 
CALL TQ(MOUT) 
li CONTINUE 
CALL EXIT 
ENDS 

^CATALOG 
TYPE=FG 
A = 

VSW[GPIS?[SDIR 

Degin 

$E0J 



283 CONTINUE 

CALL L1STEM( JDI.R.HES(1),12) 
GOTO 1Q9 
C BETA-BETADOT 

204 CONTINUE 

CALL L1STEM( JD IRENES (1)', 14) 
GOTO 1Q9 
C EARTH EDGES 

205 CONTINUE 

CALL LISTEM( JDIR,NES(1),15) 

GOTO 199 

ENDS 

SCATALOG 
TYPE=E6 
nahe=lislmk 
assign 2=:LANPMA 
BEGIN 

SEDJ - . - 



IF(KINn,NE.l2)G0T0 45 
IH=IH+1 

11 = JDIR( JA-^2) 

12 = JDIR ( JA + 3 ) 

13 = JDIR( JA + 4 ) 

I4=JDIR( JA+5) 

GOTO 44 

4.5 ir(KINn,NE.13)G0T0 44 
IH=IH+1 
I5=JDIR( JA+2) 

16=JDIR( JA+3) 

I7 = JDIR( JA^-4) 

44 continue 

ENe0DE(72,339,M0UT)U, 12, 13, 14, 15, 16, 17 
IF( IH.PQ.2)CALL TQ(MOUT) 

339 FORMAK ,818) 

return 

- END - ■ * - ’ 

DIMENSION JDIR(56Q)yMES(8) ,M0UT(24 ) ,MER(24 ) 
DIMENSION NAM(2> 

COMMON /SYSCOM/ND AT ( iOO ) 

DATA NAM/6HLISLMK/: 

DATA MFR/30H NO LANDMARKS ON SPECIFIED DAY 
199 MES(i )=NAM(1 > 

MES{2)=NAM(2) 

CALL ID(MES) 

1F(MES(1 ) .E0.NAM(1)^G0 TO 299 
IF(MES(1).EQ.0)CAL’L ABORT 
lF(NDAT(92).LT,0)eAL;L WAIT{NDAT(92)) 
NDAT(9?)=-1 
GALL 0PN(2) 

MSEC=5*MnD(MES(l>;i00) 

GALL SCRA(2,MSEC) 

CALL RFADW(2,560, JDiR) 

CALL CLOS(2) 

NDAT(92)=0 

JUMP=MFS(2) 

IF( JUMP.NE.O)GOTO 4444 
DO 450 JA=1,4 
JB=13-JA 

450 CALL LISTEM(JDIR,HE$(1),J8) 

GOTO 199 

4444 IF< JUMP.LT.DCALL EXIT 
IF( JUMP.GT.5)CALL EXIT 
GOTO (203, 202, 2 01, 204, 205 ), JUMP 
C LIST landmarks 

201 CONTINUE 

CALL LISTEMC JDIR,MES(1),9) 

GO TO 199 
299 CONTINUE 
, CALL EXIT 
C LIST SPIN rate 

202 CONTINUE 

CALL LTSTEM( JDIR,MES(1),11) 

GO TO 199 
C LIST ORBIT 



$J0B LISLMK 
^ASSIGN 6 0 
^REW,5 
^INCLUDE 10 
SiNCLUDE CSF 
SINCLUDE FIO 
^INCLUDE WAIT 
SFORTRA 

SUBROUTINE L I STEM UD I R > I D , KW ANT ) 

DIMENSION JDIR(56Q) 

DIMENSION LABEL(2Q) 

DIMENSION M0UT(241 
dimension INUM(201 

DATA LABFL/48HL LI L2 L3 I 4 L5 L6 L7 l 8 L9 S b BE / 

DATA INUM/0,0, 0/0;0j0, 0/0, 0» 0# 0# 1^4,3, 3,0, 070, 0#0/ 

11*0 
12*0 
NL = 0 

1L=LABFL(KWANT+1) 

NUMB=IMUM(KWANT+1^ 

IF(KWANT.E0.12)G0T0 4444 
DO 4 JA=1,560,7 

KlND=jniR( JA+6)/4096 ' 

IF(K1ND.GT .KWANT)GOTO 4 ! 

IF(KINn,I.T.KWANT,AND,KWANTVNE.9)G0T0 4 . 

IF( JDIPC JA) .NE. ID^GOTO 4 
1L = LABPL(KIND*^1) 

J=UA+1 
NL=NL+1 
IT=JDIR( J) 

J1=JDIP(J+1) 

J2=JDIR(J+2) 

Kl=JDIR(J+3) 

K2=JDIR(J+4) 

Ll=JDIR(J+5) 

L1=MOD(L1,4096) 

KFiO 

IFdl.FO. JI.AND. I2.EQ. J2)KF = 1 
IF( Jl.FO. O.AND. J2.EQ . 0)KF=1 

333 FORMAK A3, 18, 13,418^ 

334 FORMAT! A3, 818) 

ENCODE (72/ 333, MOUT)iL/ I T # LI / Kl / K2 , J1 , J2 

IF ( KF. FQ. 1) ENCODE (72/ 333 /MOUT) I L / I T , LI , Kl / K2 

KA*JA+2 

kb=ka+mumb-i 

IF( IT .ME , 0 )KA=KA-1 

IF(NUMR.NE.O)ENCODE(72, 334/MOUT) I L , ( JD I R ( KL ^ ; KL r K A ? KB ) 

68 CONTINUE 
11 = J1 
12*J2 

CALL TO(MOUT) 

4 CONTINUE 
RETURN 
4444 IH=0 

DO 44 JA=1,560/7 
IF ( JDIR( JA ) .NE , I DOGOTO 44 
KIND* JDI R ( JA+6)/4096 




sjob edav 

S^A$SlGN,6/0 

SREW,5 

SIMCLUDE no 
55INCLUDE CSr 
S5INCLUDE WAIT 
iKINCLUDE 10 

Ibfortran 

DIMENSION MES(8),J(560),MER{24) 

COMMON/S YSCOM/ND AT (100) 

DATA MFS/6HEDAY / 

Data mfr/3ohpri viledged function refused 

GALL lO(MES) f^trrubtu 

I F (NDAT ( 95 ) , LT . 0 ) GOT 0 100 

GALL TO(MER) 

GALL EXIT 

100 IF(NDAT( 92) ,LT . OIGAL'L WA I T ( NDAT ( 92 ) ) 
NDAT(92)=-1 
CALL 0PN(2) 

N=MES(1) 

NSEC = 5<^M0D ( N/ 100 ) 

CALL SGRA(2/NSEC) 

CALL RFADW(2,560, J) 

DO 200 L=1.560, 7 

IF( J( L) . FO . N) J( L) -0 
200 CONTINUE 

GALL SCRA(2^NSFC) 

GALL WRI TW( 2^ 560,J) 

CALL CI.0S(2) 

ND'AT(92)=0 
GALL EXIT 
ENDS 

^CATALOG 
TYPE=FG 
UME = EDAY 
ASSIGN 2=LANDMA 
?EGIN 




INAV=1 

DO 1 J=l,500 

ir( IC0M( t ) ,EO. 0)GOTd 222 

e ftEAD Tape record 

CALL RFAnw(2/273i;iT) 

6 HOVE SAMPLES SPLIT TO IS 
C FIRST TAPE WORD TO START SPLITTING 
ITST=l+( IES-l)/3 
NSPLIT=NF+6 

6 offset Between split start and first wanted eueHfnt 

lR=MOD( IFS+2»3) 

d PLACE IN Satellite coordinate system to put split samples 

IDEST=?0F+IES-IR -I 

IF(KEE.EQ.0)CALL crack (NSPI IT/ IT(ITST),IS(IDEST^) 

C i'F EEC NEEnEO, MUST SRLiT WHOLF LINE 

IF(KEE.NF.0 )CALL eRACK(8l93“lOF, it, IS( IOF) ) 

C BO earth-ehgf correction 

CALL EnGFCO(PST,KEE* INAV, BFTA^BDOT, IPL. IS, IQELT; IBAD) 
IFUBAD .FO. 0 )GOTO 777 
DO 776 J7=l,8193 
7^6 IS(J2)=0 

777 CONTINUE 

IPL=IPI -^ILD 

G K IS PLACE IN OUTPUT BUFFER TO PUT LINE 
K=M0D(J,5) ' 

1F(K.EO.O)K=5 
K=K-1 . 

KK^O 

JOF= lOF+T DELT 
DO 2 JJ=TES, lEL. lED 
M = 0 

UA = JOF~l‘*"JJ 
DO 22 JJJrl, lED 
MM=JAf JJJ-1 
22 M=M+IS(MM) 

M=M/IEn 
KK=KK+t 
2 IS(KK)=M 

KAD=224*K+1 

GALL PACK(672, IS, ID(KAD) ) 

IF(K,NF.4)G0 TO 11 
CALL SCRA(3,NSFC) 

CALL WRITW(3,ll20;iD) 

NSFC=NSEC+10 

11 IFdLD'.EO.DGOTO 1 
1 I=ILD-1 
DO 12 IX:^1, I I 

12 CALL RFAnW(2,2, ITl 
1 CONTINUE 

CALL TO<MOUT) . 

222 CALL RFW(2) 

CALL CL0S(2) 

CALL Cl 0S(3) 

CALL EXIT 
ENDS 



SCATALOG 

Nahe=absld 

TYPE=FG 

TBSIHE=50OO 

ASSIGN 2 = 11, 3=HK, 4=REELS, 11 = LANDMA 

feEGiN 

lEOJ 



SJOB L06GIN 
^ASSIGN 60 
5REW,5 
^FORTRAN 

COMMON/SYSCOM/N( IQO^ 

DIMENSION MESX9(1Q) 

DIMENSION MES(8) 

DIMENSION MME1(2);mME2(10) 

DIMENSION MES2 (241 ,MFS3(24) ,MES4 (24 > , ME S5 ( 2^ 1 , MOOT ( 24 ) 
DIMENSION MC(IOO) 

DIMENSION MPR0J(il21 
DIMENSION MM0UT(13) 

EQUIVALENCE (MOOT (111 ,MM0UT(1) ) 

DATA MC/100*0/ 

DATA MFSX9/6HD0I OXX/ 

DATA MFS^/30H«*»PRI VILEDGEn PR0JECT«»« 

DATA IRLK/3H / 

DATA MES/6HL0GGIN/ 

DATA MFS4/30HI LLEGAL PROJECT 
DATA MFS2/30HMUST LOGOUT FIRST 
DATA MFS3/6HL0G0UT/ 

DATA MME1/6HENH001/ 

DATA MME2/0, 0,0.63,0, 63, 0/63, 0,63/ 

MES3(3^=Q . - . 

MME2(1)=MME1(1) 

MME2(2)=MME1(2) 

CALL 0PN(4) 

CALL RFW(4) 

CALL RFAnW(4,90,MC) 

CALL Cl 0S(4) 

C COMMON 1-90 FROM DISK 
C COMMON 91-94 2ER0 
C COMMON 95-1 OOUNCHANGEQ 
DO 983 JA=1,95 
983 N(JA)=MC(JA) 

GALL lO(MES) 

IF(MES(1),EO,O.OR;MES(1),GT.9999)CALL EXIT 
IF(N(1),FO.O)GO TO 111 
CALL T0(MES2) 

CALL EXIT 
111 CONTINUE 
N(SO)=n 
N(79)=’77 
N(78)=i400 
N(76)=? 

N(75)= '00410000 

N(74)=n 

N(73)=n 

N(72) = * 02020202 
CALL S0(MESX9) 

CALL Sn(MME2) 

NTICK=meS( 2) 
lF(NTirK.EO.0)NTICK=10 
NTICK=mTICK»60 
NT ICK=NT ICK*120 

CALL FROGS(6.6HLOGOUT,254,NTICK ) 



CALL 0PN(3) 

CALL RPW(3) 

CALL RPAnw( 3> 10, MOUT ) 

GALL C1..0S( 3) 

N(l) =MPS(1) 

N(§6)=N(96 )+N(97 ) 

N(97)=0 

IF(N(9A) .6T.864001N(96) =N(96)-86400 
MM=^N(98) /60 
MM=MOD(MM, 60 ) 

M1=M0D(MM, 10 ) 

H2=M0D (MM/10 ,10 ) 

MM=N(96 ) /3600 
M3=M0D(MM, 10 ) 

M4 = MM/1.0 

ENG0DE(42,222,MM0UT^M4,M3, m2,M1 
222 FORMAT(» ACTIVE AT *,12,311) 

GALL TO(MOUT) 

CALL 0PN(2) 

GALL SCRA(2,0) 

call RFAnW(2,112,MPR0J) 

GALL Cl 0S(2) 

DO 93 JJ=1,112,2 
1F(MPR0J( JJ) ,EO.N(inGO TO 993 
93 CONTINUE 

CALL T0(MES4) 

CALL S0(MES3) 

GALL EXIT 

993 N(95) =MPROJ( JJ+1 ) 

IKEY = N(9'5), and. *40090000 

if(ikey.fo,o)call exit 

GALL T0(MES5) 

CALL EXIT 
ENDS 

S5INCLUDE 10 
SINCLUDE FIO 
SINCLUDE CSF 
SCATALOG 
TYPE=FG 

name=loggin 

ASSIGN 2=PR0JS,3=VERS,4iSYSC0M 

BEGIN 

SEOJ 



SJDB DOIDXX 
$REW,5 
!&ASSIGN,6,0 
IKINCLUDE CSF 
^INCLUDE HIO 
SFORTRA 

DIMENSION MES{8) 
COMMON/SYSCOM/N( 100) 

DATA MPS/6HD0I OXX/ 

CALL IO<MES) 

CALL HIO( *101, ♦20Q0 + 16,N(80) ) 
CALL HI0(«101, '20Q0+?*16,N(79)) 
CALL HIO( *101, ’2000♦3^^16,N(78) ) 
CALL HTO( *101, '2000^^5*16, N(76) ) 
CALL HIO( *101, *2000+6*16, N(75) ) 
GALL HIO (* 101, * 1000 + 3*16, N( 74 ) ) 
CALL H10( *101, *1000+5*16, N(73) ) 
GALL HTO( *101, *1000+6*16, N(72) ) 
CALL EXIT 
ENDS 

^CATALOG 

TYPE=FG 

NaMe=doidxx 

&EGIN 

seoj 



SJOB CNTRL 

^ASSIGN, 6/ 0 
SaSsemb 

START BLL IKMAIN 
BLU 5JEXIT 
ENDS START 

SrORTRAN 

SUBROUTINE MAIN 

DIMENSION MES(8)»NAM(2),M0UT(24) 
DIMENSION MSYS(IO) 

DIMENSION LMES(3) 

DIMENSION LF<2) 

DIMENSION NF(2) 

DIMENSION IW(2) 

DIMENSION LD(2) 

DIMENSION JE(2) 

DIHENSI ON LKMES( 3) 

DIMENSION MTVLdO^ 

DIMENSION MECH0(2^) 

C NDAT(55) IS CURSOR POINTER WORD 

C NDAT(56) IS CURRENT-FRAME/DES I RED FRAME 

e B7 IS frame ROUNDS 

e B9 IS LAT 

G 60 IS LONG 
C 6l IS WIND TFMP STORAGE 
C 62 IS LAST area USED FOR A LOAD 
G 63 

G 6A is GURSOR SIHE 

COMMON/SYSCOM/NDATdOO) 

DATA MFCH0/3H * / 

BATA Iw/6HBAKGN0/ " — — 

DATA NF/6HNAVFRM/ 

DATA LF/6HLFRAME/ 

DATA LD/6HLNDMRK/ 
data JE/6HFRMEAR/ 

DATA LMES/6HL00P / 
data LKMFS/6HL I SDIR/ 

DATA MTVL/6HLDCNTW/ 

DATA MOUT/30H BAD CNTRL 

DATA NAM/6HCNTRL / 

999 MES(1)=NAM(1) 

MES( 2)=NAM( 2) 

CALL IO(MES) 

K=MES(1) 

IF(MESCD.EQ.NAM(t)^RETURN 
IF(NDAT( 1) . EO. 0)GOTO 999 
MECH0(1)=MECH0(1). AND, ♦77777400 
MEGHOn ) =MECHO( 1) .'OR ,K 

C L 

IF (K.NF. '314)G0T0 2 

NDAT(6?)=0 

CALL SOd.MES) 




GOTO 1 

C A 

2 IF(k.NP, *301)gOT0 3 

ND'At<6?) = 0 

GALL STEP 
GOTO 1 

C: B 

3 1F(K.NF. '302)GOTO 4 

NDAT(6?)=0 

GALL BACK 
GOTO 1 

C R 

A IF (K *NE . ' 322)G0T0 5 

NDAT(6?)=0 
CALL RFST 
GOTO 1 

c c 

9 IF (K. weV *303)G0TQ 6 
MSYS(1)=I F (1) 

MSYS(2)=LF(2) 

MSYS(3>=NDAT(56) ,AND, '7777 
DO 500 JA=4,10 
500 HSYS(JA)=0 

GALL SQ(MSYS) 

GOTO 1 

G H 

6 IF(K.NF. '315)G0T0 7 
NDAT(62)=0 
MSYS(1)=LD( D 
MSYS(2) =LD( 2) 

MSY$(3)=NDAT(56) .AND. *7777 

MSYS(4)=NDAT(59) 

MSYS(5)=NDAT(60) 

MSVS{6)=NDAT(55)/4096 

MSYS(7) =MOD(NDAT (55^ , 4096) 

MSYS(8)=0 

CALL SO(MSYS) 

CALL STEP 
GOTO 1, 

G E 

7 IF(K.NF. '305)GOTO 8 
MSYS{1)=JE(D 
MSYS(2>=JE(2) 

MSYS(3)=NDAT(56) .AND. *7777 
MSYS(4)=NDAT(55)/4096 
MSVS(5)=M0D(NDAT (55^4 096) 
CALL SO(MSYS) 

GOTO 1 

C N 

8 IF(K.NF. *316)G0T0 9 
GALL SO(NF) 

GOTO 1 

c w 

9 IF(K.NP, *327)GOTO 19 
NDAT(62)=0 

IF(NDAT(61) .NE,0)G0T0 900 
NDAT(61 )=NDAT(55) 



GALL STEP 
GOTO 1 

900 MSYS(l)=rw(l) 

MSVS(2)=rw(2) 

MSYS(6)=NDAT(56) *AND.’7777 
MSYS(3)=MSYS(6)-1 
IT=NDAT(57)/4096 
ir(MSYS(6) ,EO. I DCALL STEP 
KK=NDAT(61 ) 

NDAT(61)=0 

MSYS(4 )=KK/4096 

MSYS(5)=M0D(KK, 4096-) 

MSYS(7)=NDAT(55)/4096 

MSYS(8)=M0D(NDAT(55^ . 4096) 

MSYS(9)=NDAT(64)/4096 

MSYS(in)=MOD(NDAT<64),4096) 

CALL SO(MSYS) 

GOTO 1 

6 D 

16 IF(K.NF. »304)GOTO 11 
CALL SD(IKMES) 

GOTO 1 
C 1 THRU 8 

11 IF (K.LT. *260.)GOTO 12 
IFtK.GT. ' 270 )60T0 12 
MTVL (3) =K- • 260 
NDAT(62)=MTVL(3) 

MTVL(4)=MDAT(56) .AND. '7777 
MTVL(5):^0 

MTVL (6) =0 
MTVL(7)=1 
CALL SD(MTVL) 

GOTO 1 
C f J K 

12 If (K.LT. '311.0 R.KvGtV'313)GOT0 13 
K=K- '307 

MTVL (3)=NDAT(62) 

MTVL(4)=(MDAT (56), and. *7777 
MTVL(7)=K 
MDAT(62)=0 
C CURSOR 

ICL=NDaT(55)/4096 
ICE = M 0 rUNDAT( 55 ), 4096 ) 

IS2=500/K 

IS?=lS7/2 

MTVL(5)=TCL-IS2 

lS2=70n/K 

IS2=IS?/2 

MTVL (6) = TCF- IS? 

CALL SO(MTVL) 

GOTO 1 

13 CONTINUE 
GOTO 999 

1 CALL TO(MECHO) -• .......... 

.GOTO 999 



END 

SUBROUTINE STEP 
COMMON /SYSCOM/ND AT ( iOO) 
IT=NDAT(57)/4096 
IB=NDAT(57)“4096»tT 
ID=MOD(NOAT (56 ) >4096) 

l=it-ir 

irno.po, iT)GOTO 2 

NDi^T(56)=NDAT<56)^l 

RETURN 

2 NDAT(56) = NDAT(56)'-L 
RETURN 
END 

subroutine back 

COMMON /SYSCOM/ND AT ( 100 ) 

ITrNDAT(57)/4096 

IB = NDAT(57) . AND. * 7777 

ID=NDAT(56) . AND. *2777 

L=IT-IR 

IF( ID.PQ. IB)GOTO 2 

NDAT(56)=NDAT(56)-1 

RETURN 

2 NDAT(56)=NDAT(56)^L 

return 

ENDS 

SlNCLUDE CSF 

^catalog 

TYPE=FG 

name=cntrl 

BEGIN 

3E0J 



is JOB CC ” ' • 

SrEW,5 
ilASSiGN 6,0 
iSASSEMB 

START BLL SMAIN 
BLU SEXl 
ENDS START 
iSlNCLUDE,CSr 
^INCLUDE, STAGE 
$INCLUDE,IO 
^FORTRAN 

SUBROUTINE MAIN 
DIMENSION LISC3000 
DIMENSION MES(27) ;m(60) 
DIMENSION NERN(2) 

DIMENSION NER(2) 

DIMENSION M3(24) 

DIMENSION NAM(2) 
GOMMON/SYSCOM/IP( 108) 

DATA M3/6HCD FIN/ 

DATA NFR/6HERR0R / 

DATA NPRN/6HCRAP: / 

DATA ISTAR/3H««»/ 

DATA IRLK/MO/ 

DATA IFN/3HEND/ 

DATA NAM/6HCC / 

MESd ) =NAM( 1 ) 

MES(2)=NAM(2) 

CALL IO(MES) 

CALL CRACKd, ISTAR, fSTAR) 
CALL I01(»0707) 

CALL I01(»0207) 

' CALL lOK • 0216) 

CALL IO( ’0203,300rLIS) 

GALL ini(*0210) 

111 CALL ID( ’0701,27,HES> 

CALL I01(’0700) 
IF<IP(1).EO.O)GOTQ 111 
GALL I01(»0607) 

CALL IO( • 0602, 27, MES ) 

GALL ini(»0600) 

GALL ini(*0610) 
IF<IENVeO.MES(1) )GO TO 1000 
CALL CRACK( 60, MES;m^ 

KO = 0 

DO 20 J=l,300,3 

IF<MES(D .NE.LIS( J)^GO TO 20 

KO=:J 

Mi=LlS( J+1) 

M2=LIS( J+2) 

20 CONTINUE 

IF(KO)302,302,301 
301 CONTINUE 

1F(M(3) .FQ, ISTAR)G0 TO 100 
IF(M(3) .FQ, IBLK)GQ TO 200 



300 continue 

MES(1)=NFR(1) 

MES(2)=NER(2) 

303 CONTINUE 

CALL SDUASH(M,MES(3^ ) 

CALL TO(MES) 

GO TO 111 

302 ME$(1)=NERN(1) 

MES(2) =NFRN( 2) 

GO TO 303 
100 MES(1)=M1 

MES(2)=M2 

CALL SQUASH(M(2),MES(3) ) 
CALL SO(MES) 

GO TO 111 

200 MES(1)=M1 
MES(2)=M2 
1=2 

DO 201 J=3,10 

CALL MAKE(I,M(3),N,L) 

IF(L.NP.O)GO to 3Q0 

201 MES(J)rN 
GALL SO(MES) 

GO TO 111 

1000 CALL TOK ' 0710) 

CALL T0(M3) ‘ 

RETURN 

END 

SUBROUTINE SOU A SH ( I S , I D ) 
DIMENSION IS(24),ID(8) 
CALL PACK(24, IS, ID) 

RETURN 

END 

subroutine make(i;m;n,l) 

DIMENSION M(24) 

DATA irOM/MO/ 

DATA MIN/‘55/ 

N = 0 

L=e 

ISDN=1 

1 IF( 1 .GT. 60)60 TO 100 

IF(M( I ) .FQ.MIN)GO TO 900 
IF(M( I) ,FO . ICOM )GQ TO 100 
KK=M(I)-48 

IF(KK.LT. O.OR.KK,GT;9)L=1 

N=10»N+KK 
1 = 1+1 
GO TO 1 
100 1 = 1+1 

N=N*ISGN 
101 RETURN 
900 1=1+1 

ISGN='l 
IF<N.NF,0)L=1 
GO TO 1 
ENDS 

feASSIGN,6,17 



^CATALOG 

TYPE=FG 

Name=cc 

ASSIGN 2 = NAMI. IS, 6 = 1, 7 = 7 
BEGIN 






lejOB N AML IS 
SASSIGN 6 0 

^INCLUDE 10 
^INCLUDE no 
S 

FORTR^-.MeNS ION J(300 )*M(3) 
daTa IfN/3HENd/ 
call 0PN(7) 

L = 8 

1 CALL RnANW(7,3,M) 

. IF(M(1) .FQ. IEN)60T0100 
L = L + 1 
J(L)=M(1) 

L = L-^1 
J(L)=M(2) 

L = L + 1 
J<L)=M(3) 

GO TO 1 

160 DO 200 LI. = L#299 

260 J(LL+1)=0 

GALL 0PN(2) 

CALL RFW(2) 

GALL WRANW(2f.300, J) 
CALL CI-0S(2) 

CALL EXIT 
ENDS 

SaSSIGN 2 NAMLIS 
SCATGO 
6J LOGGIN 

Ej logout 

AT ACOTAP 
BS LAGSI2 
CR CC 
BB DLIM 
Be DEFPNT 
DF DFRAMF 
DK LDCNTR 
BL DLANDM 
DO DORBIT 
BR DRATE 
DS DSRATE 
DT DEFTAP 
DV^DVERS 
EK ERADIR 
ED EDAY 
EL DELMRK 
EX EXITWL 
El ENHOOl 
6L LNDMRK 
IF LFRAME 
IT LISTAP 
kS SETKEY 
LF FINFRM 



LK LISDIR 
LD LISLMK 
LT riNDTP 
He USECUT 
MF USEFIL 
HG USEGRA 
HL USELAP 
Hr USERAD 
MS USESPA 
MA NAVSYS 
NC NAVCHG 
NT XFORMS 
PL SURPLT 
OM MINBNJD 
OP PEAKCO 
OS SURFCO 
RD ERTSLO 
RF RESFRM 
RK RESTDK 
SF SETF 
SK SAVEDK 

ss status 

TB DEFMET 
TD NR2DEC 
TE FRMEAR 
TS EARSAT 
TT EARTAP 
we WCELL 
WD FILDIM 
ftE FILELE 

W1 bakgnd 

«L FILLIN 
WP FILWGT 
WT WHATAP 
XF LDCNTV 
^A^ANNOT 
2D ANNDIS 
2E ANNINT 
2m*pltmap 

22 LOGDUM 
END 

SEOJ .. 
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C GET AREA DIRFCTORY ENTRY 
GALL 0PN(5) 

CALL RFWC5) 

CALL RFAnw(5. 

IP=14«( I A-1 ) 

DO 1 JA=1,14 
IP=IP+1 

1 MD(JA)=J(IP) 

CALL CLOS(5) 

IF(MD(1),LE.O)GOTO 100 

C PERFORM TAPE LOOKUP 

CALL L00K(2,MD(8>;mT) 

IF(MT(1) .EQ.O)GOTQ 100 

C LOOK UP FRAMF entry FOR PROJECT PROTECT KEY OKL5' 
GALL LOOK(3, IF. MF) 

IF(MF(14)*EQ.O)GOTO 2 
1F(MF(1 4) .EO.NDATd^ )GOTO 2 
IF(NDAT(95) ,LT.O)GOTO 2 
CALL SD(MESO) 

GOTO ino 

e TAPE 

2 CONTINUE 
MES0(4 i =MT(1 ) 

c Starting LINE of tape 

ILF=MT(4) 

C STARTING LINE OF AREA 
ILP = MD(3)-ILF'*-1 
C OFFSET 

ILF=ILF+MD(5)*IL 
MES0(5>=ILF 
C SAME WITH FLFMENTS 

1EF=MD(4)-MT(5) +14mB(6)«IE 
MESO(6)=IEF 
C NUMBER OF LINES 

MESO(9)=500/NR 
G TV RELATIVE 

MESO(7)=ITLS 
MES0(8)=ITES 
C DO ACTUAL LOAD 

MSEC=1000*{ I A-l)+2*fL ' 

e NSEC IS pointer TO 5 LINE AREA ON DIGITAL DISK 
NSEC=MSEC 
GALL TVKl) 

DO 96 JA=1,700 

96 L(JA)=n 
JA=ITLS-1 

IF( ITLS.F0.1)G0T0 97 
DO 95 KL=1,JA 
95 GALL TVD(L) 

C KL IS SCREEN LINE POINTER 

97 KL=ITLS 
GALL 0PN<4) 

10 CALL SrRA(4,NSEC> 

CALL RFADW(4.1120;k) 

DO 11 JA=l,5 
JB = 224*( JA-D+l 



CALL CRACK(672.K( , J) 

C DC IS SOURCE ELEMENT ROiNTER 
JCs^IE 

C kT IS SCREFN ELEMENT ROfNTER 
KT=ITES~1 

lA DO 13 JD=1>NR 
KT=KT+1 

IF(KT.GT.700)GOTO 15 
J2 = J( JC ) ■•■1 
13 L(kT)=ITAB( J2) 

JC=JC+1 

IF( JC.GT.672)G0T0 15 
GOTO 14 

15 DO 12 JB=1,NR 
GALL TVD(L) 

KL=KL+1 

IF(KL.FQ.500)60TO 90 
12 CONTINUE 
li CONTINUE 

NSEC=NREC+10 

IF(NSEC.GT.MSEC+999^GOTO 90 
GOTO in 

96 DO 91 JA=4,10 
91 MESJ(JA)=0 
CALL TVE 
CALL SO(MESO) 

CALL SD(MESJ) 

CXLL EXIT 

100 CALL TO(MESE) 

. 'call exit 
■' ENDS 
^CATALOG 
TYPE=FG 
Name=ldcntv 

ASSIGN 2=REEi S» 3=FRAMES; 4=DK> 5=DKDIR 
feEGlN 

SEOJ 

4EOJ 

^FtN 


NEXT JOB 



